GERAR ARQUIVO TXT - UURGENTEEEEE!!!!!

05/02/2003

0

Preciso gerar arquivo txt, qual a melhor maneira rápida de fazer isto?


Anonymous

Anonymous

Responder

Posts

05/02/2003

Dor_poa

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´);


Responder

05/02/2003

Os1000r

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.


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar