Edit kullanarak arama yaptırmak

Son güncelleme: 29.07.2008 11:51
  • procedure TForm1.edSearchChange(Sender: TObject);
    begin
    with Table1 do begin
    SetKey;
    FieldByName('Company').AsString:=edSearch.text;
    GotoNearest;
    end;
    end;
#03.03.2006 21:11 0 0 0
  • tsk
#24.09.2007 23:43 0 0 0
  • teşekkürler
#13.12.2007 22:33 0 0 0
  • paylasım icin tesekkurler
#15.12.2007 13:37 0 0 0
  • SAGOLASIN
#20.05.2008 15:06 0 0 0
  • tşkürler
#29.07.2008 11:51 0 0 0