начала сделай TQuery(dbgrid1.DataSource.DataSet).FetchAll
а потом
ProgressBar1.Max := DBGrid1.DataSource.DataSet.RecordCount * DBGrid1.Columns.Count
и место
for row :=0 to DBGrid1.DataSource.DataSet.RecordCount-1 do
напиши
while not DBGrid1.DataSource.DataSet.Eof do
и
ProgressBar1.StepIt; постав внутри
for col :=0 to DBGrid1.Columns.Count-1 do
begin
...
...
...
ProgressBar1.StepIt;
end
должен получатся
|