Incluir Linha em Arquivo texto

17/12/2003

1

Como incluir uma ou mais linhas em um arquivo texto ja existente sem excluir as linhas que ja existe


Responder

Posts

17/12/2003

Vanius

Bom dia.

Abra o arquivo normalmente.
ex.:

var
F: TextFile;
S: string;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(F, OpenDialog1.FileName); { File selected in dialog box }
FileMode := 2; (Escrita e leitura)
Reset(F);
Readln(F, S); { Read the first line out of the file }
Edit1.Text := S; { Put string in a TEdit control }
WriteLn(F, ´texto a ser gravado´)
CloseFile(F);
end;
end;

simples.

Abraços,


Vanius Girodo
vaniusg@yahoo.com.br


Responder