É uma função, utilizo dos componentes TDBEdit:
procedure TFrmCliente.ConsEditAsBairroChange(Sender: TObject);
function Procura(Txt: string): String;
var
iA: Integer;
begin
with Bai_temp do
if TXT '' then
FOR iA:=0 to PRED(COUNT) do
IF
-feira, 25 de outubro de 2004 10:00
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Autocompletar - URGENTE
É uma função, utilizo dos componentes TDBEdit:
procedure TFrmCliente.ConsEditAsBairroChange(Sender: TObject);
function Procura(Txt: string): String;
var
iA: Integer;
begin
2 matches
Mail list logo