Selamlar;
Listviewdeki ve databasedeki tarih alanlarını karşılaştırıp aynı olan tarihlerin listviewdeki index numarasına göre işlem yaptıracağım;
Fakat nerede hata yaptığımı bir türlü anlayamadım; For döngüsü kullanarak listviewdeki tüm verileri kontrol ediyorum, databasewdeki tüm kayıtlarında kontrol edilmesini nasıl sağlaya bilirim sadece ilk kayıt eşitse showmessage devreye giriyor diğer kayıtlar kontrol edemedim...
Listviewdeki ve databasedeki tarih alanlarını karşılaştırıp aynı olan tarihlerin listviewdeki index numarasına göre işlem yaptıracağım;
Fakat nerede hata yaptığımı bir türlü anlayamadım; For döngüsü kullanarak listviewdeki tüm verileri kontrol ediyorum, databasewdeki tüm kayıtlarında kontrol edilmesini nasıl sağlaya bilirim sadece ilk kayıt eşitse showmessage devreye giriyor diğer kayıtlar kontrol edemedim...
procedure TForm2.TarihleriEkle(Sender: TObject); var BuldumDb, BuldumPl: String; begin With ListViewPL, Form1.FDQuery1 do begin if Items.Count > 0 then begin Connection := Form1.GenelConnection; Close(); SQL.Clear(); SQL.Add('Select * From LISTEM'); Prepared := True; Open(); for J := Items.Count - 1 downto 0 do begin BuldumPl := Items.Item[J].SubItems[6]; BuldumDb := FieldByName('TARIHI').AsString; if Pos(BuldumDb, BuldumPl) > 0 then // Aynı kayıt varsa begin SHOWMESSAGE(INTTOSTR(Items[J].Index)); end; end; end; end; end;
Hayat bazen güzel olabiliyor.