dec
30-06-2006, 22:47:18
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:
Assign -> AssignFile
Close -> CloseFile
Utiliza para los TextFile los procedimientos:
SeekEOF, SeekEOL, Write, WriteLn, Read, ReadLn, Reset, ReWrite.
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.
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:
Assign -> AssignFile
Close -> CloseFile
Utiliza para los TextFile los procedimientos:
SeekEOF, SeekEOL, Write, WriteLn, Read, ReadLn, Reset, ReWrite.
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.