Seoane, siempre complicas las cosas
. Se me olvido comprobar si existía el archivo para cargarlo, es que no tengo el compilador delante
Código Delphi
[-]
uses Classes;
procedure CrearLog;
var
Log: TStringList;
begin
Log:= TStringList.Create;
If FileExists('C:\log.txt') then Log.LoadFromFile('C:\log.txt');
Log.add('Linea 1');
Log.add('Linea 2');
Log.add('....');
Log.SaveToFile('C:\log.txt');
Log.free;
end;
Otro método:
Código Delphi
[-]
var
Log: TextFile;
begin
AssignFile (Log, 'C:\log.txt');
Append (Log);
Writeln (Log, 'Linea 1');
Writeln (Log, 'Linea 2');
Writeln (Log, '...');
CloseFile (Log);
end;
Salu2