Database içinde arama işleminde butona ilk tıkladığımda kayıtlar ListViewe geliyor, bir süre sonra tekrar butona tıkladığımda resimdeki hatayı alıyorum nedeni bulamadım...
http://i.hizliresim.com/a53qZg.png
Kod: Tümünü seç
procedure TForm2.AraClick(Sender: TObject);
begin
try
Form1.ListView2.Items.Clear;
with Form1.Kayitlar do
begin
Close;
SQL.Text := 'Select * From KAYITLAR Where ADI Like ' + QuotedStr('%' + Edit1.Text + '%') + ' Order By ID DESC';
Open;
while Not Eof do
begin
with Form1.ListView2.Items.Add do
begin
Caption := IntToStr(Form1.ListView2.Items.Count);
SubItems.Add(FieldByName('ADI').AsString);
Next;
end;
end;
end;
except
Application.MessageBox('Listeleme Sırasında Hata Oluştu!', 'Uyarı!', MB_Ok or MB_ICONQUESTION);
end;
end;
