Código
procedure GravarTexto(SalvarComo, Texto:String);
var
txt: textfile;
begin
try
AssignFile(txt, SalvarComo);
Rewrite(txt, SalvarComo);
Append(txt);
WriteLn(txt, Texto);
finally
CloseFile(txt);
end;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009