Si hubieras tenido la decencia de presionar el Boton F1 de delphi hubieras encontrado esto
Cita:
|
Empezado por Ayuda de Delphi
procedure TForm1.FormActivate(Sender: TObject);
begin
Table1.DatabaseName := 'DBDemos';
Table1.TableName := 'Customer.db';
Table1.Active := True;
Table1.IndexName := 'ByCompany';
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
Table1.FindNearest([Edit1.Text]);
end;
|
__________________
...Yo naci en esta ribera del arauca vibr@d0r
Soy hermano de la espuma,
de la garza, de la rosa y del sol...
Viva Venezuela
|