Fórum Incluir Linha em Arquivo texto #201663

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