Saber el Tamano de un Archivo de texto

[[oscarac]]

buenas madrugadas

estoy haciendo un modulo de migracion de datos, el cual captura datos desde un archivo plano (TXT), entonces para hacer mas vistoso el programita le puse un progressbar

ahora viene mi duda.... como se el tamano del archivo de texto para colocarlo en la propiedad MAX del Progress?

cuanto es lo que lee con esta instruccion? para ir avanzando el progress

Código Delphi [-]
 
ReadLn( F, sLinea );

si alguien pudiera iluminarme.. estare agradecido

saludos

[Casimiro Notevi]

Por ejemplo: FileSize

[[oscarac]]

esto es lo que estoy haciendo

Código Delphi [-]
procedure TfrmActualizacion.CargarArchivoTexto;
var F: TextFile;
sLinea: String;
_Tamanio : Double;
begin
  AssignFile( F, edtArchivo.Text);
//  _Tamanio := FileSize(f);
  Reset( F );
  while not Eof( F ) do
  begin
    ReadLn( F, sLinea );
  end;
  CloseFile( F );
end;

porque cuando quiero ponerle un break no "para" el programa donde se supone debe parar

[Casimiro Notevi]

Empezado por oscarac

[..]porque cuando quiero ponerle un break no "para" el programa donde se supone debe parar

Explícate, es que todavía no me he tomado el café y estoy algo dormido

[[oscarac]]

pues creo que ya debo dormir son las 2:30 am aqui

gracias ya lo vere mas tarde cuando vaya a la oficina en 5 horas

[ecfisa]

Hola Oscarac.

Al tratarse de un archivo secuencial creo que vas a tener que hacer una lectura previa para contar el número de líneas si querés que la barra se comporte
de forma representativa. La función FileSize devuelve el número de registros de un archivo tipeado. Si el archivo no tiene tipo, como es el caso, toma por defecto un registro de 128 bytes.

Código Delphi [-]
...
function TForm1.NumFileLines(NomArch: string): Integer;
var
  F: TextFile;
begin
  AssignFile(F,NomArch);
  Reset(F);
  Result:= 0;
  while not Eof(F) do
  begin
    Readln(F);
    Inc(Result);
  end;
  CloseFile(F);
end;

procedure TForm1.ProcessFile(NomArch: string);
var
  F: TextFile;
  s: string;
begin
  AssignFile(F,NomArch);
  Reset(F);
  while not Eof(F) do
  begin
    ReadLn(F, s);
    (* Aca las operaciones que realices. Para el ejemplo muestra en Memo *)
    Memo1.Lines.Add(s);  
    ProgressBar1.StepIt; // Avanza Step posiciones en el ProgressBar
    // Application.ProcessMessages; (* de ser necesario *)
  end;
  CloseFile(F);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ProgressBar1.Max:= NumFileLines('C:\ARCHIVO.TXT');
  ProgressBar1.Step:= 1;
  ProcessFile('C:\ARCHIVO.TXT');
end;
...

Saludos.