Procedure TForm1.Button1Click(Sender: TObject);
begin
try
S := TStringList.Create;
GetTableNames('Nome_do_Alias','*.db',False, False, S);
Memo1.Text:=S.Text;
finally
S.Free;
end;
end;
Assinar:
Postar comentários (Atom)
Dicas, Fontes e exemplos para você concluir o seu trabalho com sucesso!!!
Nenhum comentário:
Postar um comentário