Verschachtelte Schleifen - Gesamtfortschritt

[Xong]

Zitat von sirius:

Delphi-Quellcode:

SchritteGesamt:=Sectors div (Length(Buffer) div SectorSize) * FPassCount ;

SchritteAktuell:=Pos div (Length(Buffer) div SectorSize) +
                  Sectors div (Length(Buffer) div SectorSize) * Pass;
Prozent:=trunc((SchritteAktuell/SchritteGesamt) *100);

Kann man aber noch vereinfachen:

Delphi-Quellcode:

SchritteGesamt:=Sectors * SectorSize * FPassCount div Length(Buffer);

SchritteAktuell := (SectorSize div Length(Buffer)) * (Pos + Pass*Sectors);

Prozent:=trunc((SchritteAktuell/SchritteGesamt) *100);

Ich hoffe, da ist jetzt kein Fehler drin.