Archivos de texto: de Pascal a Delphi
 

Un archivo de texto que podía manejar en Pascal no lo consigo desde Delphi

Las funciones básicas de Pascal 6 o 7 para archivos de texto, en Delphi cambiaron de nombre porque varios métodos y propiedades de objetos se llaman igual y para evitar conflicos las funciones estándar se renombraron:

Utiliza para los TextFile los procedimientos:

SeekEOF, SeekEOL, Write, WriteLn, Read, ReadLn, Reset, ReWrite.

Código Delphi [-]
procedure ElProcedimiento;
var
  fil: TextFile;
  Cadena: String;
begin
  AssignFile(fil,'c:\projec~1\joyerbd3\conta01.sec');
  {$I-}
  Reset(fil);
  {$I+}
  if IOResult<>0 then  //No existe archivo
    ReWrite(fil);      //crearlo...
  WriteLn(fil,Cadena); //Agrega #13#10 automático al final de la linea
  CloseFile(fil)
end;

Las directivas {I-} {I+} son para que se desactiven y activen las excepciones de I/O, la funcion IOResult devuelve el estado de la ultima operacion de I/O. Con WriteLn puedes escribir cualquier tipo de dato estándar: String, Integer, Word, Byte,... y lo recuperas con ReadLn o Read.