FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Error en Sizeof ayuda. 460
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. |
#2
|
|||
|
|||
Si lo que quieres es saber el tamaño de un fichero, utiliza la función FileSize
|
#3
|
|||
|
|||
lo he mirado y no sirve pa text.
lo que quiero hacer es meterle un ProgressBar1.max = al tamaño del textFile y luego utilizando el Length por linea que lea ir incrementado el ProgressBar1.Position. Algo tan facil como debe ser y que me cueste tanto...no se, no se. Alguna idea?. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|