Progressbar или Gauge

[Македонский]

Есть текстовый, нужно чтобы программа прочитала строки в файле и при этом работал Gauge или ProgressBar, но проблема состоит в том, что файл очень большой (сотни тысяч строк) и почему-то Gauge имеет ограничение максимального значения и, соответственно, не работает... Не подскажете как в таких случаях отображать подобный процесс?

[Stilet]

А чему равно MaxValue в этих компонентах?

[Македонский]

Последнему индексу строки текстового файла. Например, 700 000

[Stilet]

У меня работает. Код покажи.

[Македонский]

procedure TForm1.N2Click(Sender: TObject);
var i:integer;
k:integer;
t:string; //значение глубины из файла
p,z:integer; //позиция 'E' и '.' в строке
buf:string; //строка в файле
x:real;
y:real;
f: TextFile;
fName: String;
begin
Series1.Clear; Chart1.UndoZoom;
if not OpenDialog1.Execute then exit else
fName:=OpenDialog1.FileName;
label3.Caption:=fName;
AssignFile(f,fName); form1.Caption:='Filter - '+fName;
try
Reset(f);
except
on EInOutError do
begin
ShowMessage('Ошибка доступа к файлу '+
fName);
exit;
end;
end; form4.Visible:=true;
i:=0;
while not EOF(f) do begin
readln(f,buf);
p:=pos('E',Buf);
t:=Copy(Buf,P+2,6);
z:=pos('.',t);
insert(',',t,z); delete(t,z+1,1);
If p<>0 then
y:=StrToFloat(t)
else exit;
x:=x+0.1;
Series1.AddXY(x,y);
series1.Labels[i]:=copy(Buf,0,p+1);
i:=i+1;
srezka.Caption:='СРЕЗКА: '+'0'+' см';
end;
form4.Gauge1.MaxValue:=700000; // к примеру...
//(а в файле действительно столько строк)
form4.Gauge1.Progress:=i;
form4.Visible:=False;
CloseFile (f);
end;

[Alex21]

В процентах попробуй.

[Македонский]

Не-а, такая же фигня... не отображает почему-то... увы и ах...

[Alex21]

Такбы сразу и сказал:
Попробуй так:

 
while not EOF(f) do begin
Application.ProcessMessages;

и

i:=i+1;
Gauge1.Progress:=i;
{а потом уже END}
end;

[Македонский]

Красиво, конечно, выводит график постепенно (у меня прога рисует график), но... очень медленно. Процесс никак ускорить нельзя?

[Alex21]

Сообщение от Македонский

Последнему индексу строки текстового файла. Например, 700 000

Integer –2147483648..2147483647 signed 32-bit