abrir arquivo txt na tabela

Delphi

02/05/2004

eu gostaria de saber como que se faz para eu abrir um arquivo txt na tabela


Fzamara

Fzamara

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

02/05/2004

Colega,

Detalhe mais a sua dúvida, pois não consegui entendê-la.


GOSTEI 0
Fzamara

Fzamara

02/05/2004

[quote:606f7c79fc=´Aroldo Zanela´]Colega,

Detalhe mais a sua dúvida, pois não consegui entendê-la.[/quote:606f7c79fc]

Eu estou usando este codigo para salvar os dados da tabela num arquivo de texto agora eu quero fazer com que a quando eu clicar no botao carregar tabela a tabela le os dados do arquivo de texto.

Codigo para gravar os dados da tabela no arquivo de texto.
var
F: TextFile;
i : integer;
begin
Assignfile(F, ´Arquivo.txt´);
Rewrite(F);
Tabela1.first;
While not Tabela1.EOF do
begin
Writeln (F,Tabela1.FieldByName(´Campo1´).AsSTring + ´ ´ + Tabela1.FieldByName(´Campo2´).AsSTring+´ ´+Tabela1.FieldByName(´Campo3´).AsSTring);
Tabela1.Next;
end;
closeFile(F);
MessageDlg (´Os dados da tabela foram gravados com sucesso!´, mtInformation,[mbOK],0);
Halt; end;


GOSTEI 0
POSTAR