Progressbar или Gauge

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

Alex21, извини, но не понял твоего последнего сообщения...

[Alex21]

Gauge1.Progress имеет тип Integer, 32-бит, со знаком.
Т.е. его диапазон = от –2147483648..до 2147483647
(2^32)-1=4294967295 - всего, из них половина положительных, половина отрицательных.
Есть еще тип Cardinal 0..4294967295 32-бит, без знака.

Это я к тому, что 700 тыс. - это не предел.
Пишем в Delphi слово INTEGER наводим на него указатель, и жмем F1.

//////////////
Ускорить? А насколько медленно работает?

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

Насчет предела я только предположил, потому что с маленькими файлами все в шоколаде, а с большими процесс не отображается, вот я и подумал, что gauge может иметь какие-либо ограничения...

А как вставил в код Application.ProcessMessages, программа стала грузить данные из файла раз в 100 медленнее...

[Alex21]

Советую почитать про Application.ProcessMessages

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

ok, сапибо за помощь!

[Stilet]

Александр, я бы на твоем месте заменил процедуру чтения из файла на что-нить побыстрее типа TFileStream.

[mutabor]

Раз медленнее стало значит отрисовка графика затормаживает. Тут надо выбрать одно из двух - либо не показывать прогресс, либо в цикле рисовать график в памяти а уже после цикла отобразить.

[Andrei]

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

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

Я сделал бы так:

procedure TForm1.Button2Click(Sender: TObject);
var i: integer;
MyFile: TStringList;
begin
//Загружаю файл в операвтиную память в переменную MyFile
MyFile.LoadFromFile(OpenDialog1.Fil eName);
i:=0
ProgressBar1.Min:=0
ProgressBar1.Max:=MyFile.Count;
for i:=ProgressBar1.Min to ProgressBar1.Max do
begin
ProgressBar1.Position:=i;
//а дальше обрабатываею i-тую строку из MyFile
...
end;
end;

Я думаю, так должно быть быстрее потому как прога будет работать с оперативкой, а не с диском, как у тебя.

А прогрессбар я запускал на перебор БД с 5 000 000 записей и никаких проблем не было.

PS: кстати, прорисовка графики занимает действительно много времени. Поэтому график лучше строить на невидимой форме, а
по окончании построения сделать ее видимой.

PPS: В свое время при написании текстового редактора я столкнулся,
с тем, что процедура поиска, написанная мною, стала глючить на
файлах большого объема. Тогда я для переменной, указывающей позицию в строке назначил вместо типа integer тип cardinal (целое без знака). Помогло

[Andrei]

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

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

Я сделал бы так:

procedure TForm1.Button2Click(Sender: TObject);
var i: integer;
MyFile: TStringList;
begin
//Загружаю файл в операвтиную память в переменную MyFile
MyFile.LoadFromFile(OpenDialog1.Fil eName);
i:=0
ProgressBar1.Min:=0
ProgressBar1.Max:=MyFile.Count;
for i:=ProgressBar1.Min to ProgressBar1.Max do
begin
ProgressBar1.Position:=i;
//а дальше обрабатываею i-тую строку из MyFile
...
end;
end;

Я думаю, так должно быть быстрее потому как прога будет работать с оперативкой, а не с диском, как у тебя.

А прогрессбар я запускал на перебор БД с 5 000 000 записей и никаких проблем не было.

PS: кстати, прорисовка графики занимает действительно много времени. Поэтому график лучше строить на невидимой форме, а
по окончании построения сделать ее видимой.

PPS: В свое время при написании текстового редактора я столкнулся,
с тем, что процедура поиска, написанная мною, стала глючить на
файлах большого объема. Тогда я для переменной, указывающей позицию в строке назначил вместо типа integer тип cardinal (целое без знака). Помогло

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

Спасибо, братцы! Век не забуду!
Есть всё же добрые люди на свете...