herkese iyi çalışmalr arkadaşlar
benim sorum exeldeki gibi bir arama yapmak yani sonrakini bul olayı
yazdığım kod şu fakat olmadı
Kod: Tümünü seç
procedure Tkaybul.RzEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
datamodule1.IBDataSet2.Next;
while not datamodule1.IBDataSet2.Eof do begin
datamodule1.IBDataSet2.locate('ACIKLAMA',Rzedit1.Text,[lopartialkey]+[locaseinsensitive]);
break;
end;
end;