Programa para reescribir un archivo

[[egostar]]

Hola,

Cuando trabajas con archivos, deberías de verificar que exista y me tome la libertad de hacer una modificación a tu código para que valide que exista el archivo que vas a trabajar y de esa forma evitar alguna excepción.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var 
  txt: textFile;
begin
  AssignFile(txt, 'c:\WINDOWS\system32\archivo');
  if fileexists('c:\WINDOWS\system32\archivo') then
     Append(txt)
  else Rewrite(txt);
  Writeln(txt, 'linea1'+#13#10+ // Suponiendo que quieras meter varias lineas
               'linea2'+#13#10+   // al archivo, usamos #13#10 evitando usar 
               'linea3'+#13#10+  // Writeln para cada linea que quieras meter.
               'linea4');
  CloseFile(txt); 
end;

Salud OS