Кол-во строк в Txt в ProgressBar

[Oleg Romanchuk]

Добрый день, меня интересует есть ли функция в Delph которая выдавала бы кол-во строк в txt файле и при этом не грузила оперативку и процессор
Текстовый файл весит примерно 750 мб. и имеет более милиона строк

Нужно это для того что бы в прогрсс бар, записать максимальное значение MaxValue. и показать пользователю ход выполнения операции)

У меня получилось примерно следующее:

procedure TMainForm.Button3Click(Sender: TObject);
var
f,l:TStringList;
i:Integer;
Fail:TextFile;
str1,s:string;
begin

L:=TStringList.Create;
L.LoadFromFile(PathEdit.Text);
i:=0;
i:=L.Count;
MainPos.MaxValue:=i;
MainPos.Progress:=0;
L.Free;

f:=TStringList.Create;
AssignFile(Fail,PathEdit.Text);
Reset(Fail);
i:=0;

while not eof(fail) do
begin
MainPos.Progress:=MainPos.Progress+1;

//Операция добавления данных из txt файла в БД

end;
f.Free;
end; end.

[Armorer]

Можно так:

в прогрессбаре отображать не отношение прочтенных строк к общему числу, а количество прочтенных байт к общему числу. Будет гораздо эффективнее чем читать два раза (и пользы больше, т.к. заполнее шкалы будет проходить более равномерно).

примерно так:

MaxValue = размер фала
При чтении строки:
MainPos.Progress:=MainPos.Progress+ Lenght(прочтенная строка);

[Oleg Romanchuk]

Сообщение от Armorer

Можно так:

в прогрессбаре отображать не отношение прочтенных строк к общему числу, а количество прочтенных байт к общему числу. Будет гораздо эффективнее чем читать два раза (и пользы больше, т.к. заполнее шкалы будет проходить более равномерно).

примерно так:

MaxValue = размер фала
При чтении строки:
MainPos.Progress:=MainPos.Progress+ Lenght(прочтенная строка);

О_о то что надо спасибо большое, я нуп