Was soll die äussere Schleife?
Setz den Max-Wert der Fortschrittanzeige auf die Anzahl der ausgewählten Dateien, die Schrittweite auf eins und erhöhe in der Schleife zum Öffnen der Dateien die Positin der Fortschrittsanzeige um eins:
Delphi-Quellcode:
Progressbar1.Max := opendiag.files.count;
Progressbar1.Step := 1;
for i:=0 to opendiag.files.count -1 do begin
sender.cells[0,1+i]:= ExtractFileName(opendiag.Files[i]);
sender.cells[1,1+i]:= Extractfilename(opendiag.Files[i]);
sender.cells[2,1+i]:= floattostr(FileSize (opendiag.Files.Strings[i]) div 1024);
Progressbar1.StepIt;
Progresbar1.Refresh;
end;