Listview de for ve break işlemi

[Serhat]

Selam;

Listview de mp3 için for döngüsü ile id leri karşılaştırıyorum, id eşleşince bir sonraki kayıtın bilgilerini alıyorum.
En son da finally işleminde id numarasını da almak istiyorum, fakat Break işleminden sonrada for döngüsü yaklaşık üç kayıt daha devam ettiğinden bana sürekli olarak üç kayıt sonraki yanlış id umarası geliyor bu durumu nasıl çözebilirim?

Kod: Tümünü seç

procedure TMainForm.ListViewNext(Sender: TObject); // Sonraki kayıt
begin
  try
    with PListView do
    begin
      try
        for I := 0 to Items.Count - 1 do
        begin
          if IdNumara = StrToInt(Items[I].SubItems[3]) then
          begin

          Kodlar ----->>>>          

            Break;
          end;
        end;
      finally
        IdNumara := StrToInt(Items[I + 1].SubItems[3]);
      end;
    end;
  except
  end;
end;

[ikra]

For döngüsünden ciktiginiz andan itibaren sayac dogru degeri göstermez. Ya ikinci bir degisken kullanip I sayacinin degerini bu degiskene atin, yada while döngüsü kullanip I degiskenini inc yapin.

[Serhat]

For döngüsünden ciktiginiz andan itibaren sayac dogru degeri göstermez. Ya ikinci bir degisken kullanip I sayacinin degerini bu degiskene atin, yada while döngüsü kullanip I degiskenini inc yapin.

Araştırdım fakat listview de while döngüsü ilgili kaynak bulamadığımdan bende for ile çözmeye çalıştım

[ikra]

Böyle birseyi hazirlamamak ile cok büyük ayip etmisler. Bunun icin söyle bir baslik acilip sabitlenmesi lazim: ne olacak delphi'nin hali

[mrmarman]

Id okuduğun yer finally'den kurtar, break satırının üzerine koy.

[thelvaci]

Böyle birseyi hazirlamamak ile cok büyük ayip etmisler. Bunun icin söyle bir baslik acilip sabitlenmesi lazim: ne olacak delphi'nin hali

Ne olacak bu Delphi'nin hali mi, yoksa ?

[Serhat]

Id okuduğun yer finally'den kurtar, break satırının üzerine koy.

mrmanman hocam dediğiniz gibi de yapmıştım, değişen bir şey olmuyor break den sonrada döngü biraz devam ediyor finally ekstradan denendim

[ikra]

Kod: Tümünü seç

procedure TMainForm.ListViewNext(Sender: TObject); // Sonraki kayıt
begin
    with PListView do
    begin
        for I := 0 to Items.Count - 1 do
        begin
           IdNumara := StrToInt(Items[I + 1].SubItems[3]);
           if IdNumara = StrToInt(Items[I].SubItems[3]) then
           begin

          Kodlar ----->>>>          

            Break;
          end;
        end;
    end;
end;

[SimaWB]

Böyle birseyi hazirlamamak ile cok büyük ayip etmisler. Bunun icin söyle bir baslik acilip sabitlenmesi lazim: ne olacak delphi'nin hali

Ne olacak bu Delphi'nin hali mi, yoksa ?

Bence de sorun KESİNLİKLE Delphi'de değil!