хочется что бы при чтении 1 строки файла появлялся 1 квадрат в ProgressBar Ну и соответственно как дошли до конца файла так и заполнился до конца ProgressBar
Написал вот так!!!!!!!!!!!!!!! Не работает
var
f :TextFile;
str :String;
count:Integer;
step :Integer;
i :integer;
begin
// подсчет строк в файле
chdir('с:\progress');
AssignFile(f,'c:\progress\aaa.ini');
{$I-}Reset(f);{$I+}
if IOResult<>0 then Exit;
While not eof(f) do
begin
Readln(f,str);
count:= i+1; // до пустим 400
end ;
CloseFile(f);
//готовим ProgressBar
ProgressBar1.Min:=0;
ProgressBar1.Max:=count;
Step:=ProgressBar1.Max div 100 ; // шаг = 4
AssignFile(f,'w:\temp\mymon\inimag.ini');
{$I-}Reset(f);{$I+}
if IOResult<>0 then Exit;
While not eof(f) do
begin
Readln(f,str);
ListBox1.Items.Add(str);
sleep(100);
progressbar1.Position := progressbar1.Position + progressbar1.Step;
end ;
CloseFile(f);
end; 