esquerda21
28-11-2003, 09:34:03
var dato: textfile;
res: integer;
procedure......
begin
assignfile(dato, 'c:\pro.txt');
reset(dato);
res:= SizeOf(dato);
label1.caption:= inttostr(res);
end;
Pues lea lo que lea en assign, el tamaño que la funcion (SizeOf)me devuelve siempre es 460.
Alguien me puede hechar una mano?
Gracias de antemano.
res: integer;
procedure......
begin
assignfile(dato, 'c:\pro.txt');
reset(dato);
res:= SizeOf(dato);
label1.caption:= inttostr(res);
end;
Pues lea lo que lea en assign, el tamaño que la funcion (SizeOf)me devuelve siempre es 460.
Alguien me puede hechar una mano?
Gracias de antemano.