Saber el Tamano de un Archivo de texto

[[maeyanes]]

Hola...

Si estás leyendo desde un archivo de texto, ¿por qué no usar la clase TStringList?

Código Delphi [-]
begin
  with TStringList.Create do
    try
      LoadFromFile('Archivo.txt');
      ProgressBar.Max := Count;
      ProgressBar.Position := 0;
      for I := 0 to Pred(Count) do
      begin
        // Procesamos las lineas de texto...
        ProgressBar.StepIt
      end
    finally
      Free
    end
end;

Saludos...