GERAR ARQUIVO TXT - UURGENTEEEEE!!!!!
Preciso gerar arquivo txt, qual a melhor maneira rápida de fazer isto?
Anonymous
Curtidas 0
Respostas
Dor_poa
05/02/2003
Olha, vc. pode colocar um MEmo na tua aplicação e adicionar o conteudo nele e depois salvar
Ez.:
memo1.lines.add(´Texto´);
memo1.lines.SaveTofile(´c:\asas´);
Ez.:
memo1.lines.add(´Texto´);
memo1.lines.SaveTofile(´c:\asas´);
GOSTEI 0
Os1000r
05/02/2003
Procure no Help do Delphi pelo comando AssignFile
O exemplo abaixo mostra como abrir 2 arquivos e copiar de um para outro...
uses Dialogs;
var
F1, F2: TextFile;
Ch: Char;
begin
if OpenDialog1.Execute then begin
AssignFile(F1, OpenDialog1.Filename);
Reset(F1);
if SaveDialog1.Execute then begin
AssignFile(F2, OpenDialog1.Filename);
Rewrite(F2);
while not Eof(F1) do
begin
Read(F1, Ch);
Write(F2, Ch);
end;
CloseFile(F2);
end;
CloseFile(F1);
end;
end.
O exemplo abaixo mostra como abrir 2 arquivos e copiar de um para outro...
uses Dialogs;
var
F1, F2: TextFile;
Ch: Char;
begin
if OpenDialog1.Execute then begin
AssignFile(F1, OpenDialog1.Filename);
Reset(F1);
if SaveDialog1.Execute then begin
AssignFile(F2, OpenDialog1.Filename);
Rewrite(F2);
while not Eof(F1) do
begin
Read(F1, Ch);
Write(F2, Ch);
end;
CloseFile(F2);
end;
CloseFile(F1);
end;
end.
GOSTEI 0