Pascal/Turbo Pascal - Sobre ficheros

Hola me gustaría saber cómo puedo saber en pascal si un fichero está vacio, lo q tengo q hacer en el programa es crear un fichero sólo una vez , esto en la primera ejecución, y en las siguientes ejecuciones añadir cosas al archivo creado en la primera ejecución , muchas gracias.

Usa la función FileSize().

Hola.

Tal vez este pequeño programa te ayude a resolver tu problema, si aún no lo solucionas.

program MuestraAutoexec2;

var

fichero: text; (* Fichero de texto *)
linea: string; (* Línea que leemos *)

begin
assign( fichero, 'C:\AUTOEXEC.BAT' ); (* Le asignamos el nombre *)
{$I-} (* Deshabilita comprobación
de entrada/salida *)
reset( fichero ); (* Lo intentamos abrir *)
{$I+} (* La habilitamos otra vez *)

if ioResult = 0 then (* Si todo ha ido bien *)
begin
while not eof( fichero ) do (* Mientras que no se acabe *)
begin
readln( fichero, linea ); (* Leemos una línea *)
writeln( linea ); (* y la mostramos *)
end;
close( fichero ); (* Se acabó: lo cerramos *)
end; (* Final del "if" *)
end.

Chao

Julio
[email protected]