Delphi-Quellcode:
try
find(dirs[i]); //hier werden die ordnergrössen richtig ermittelt(gecheckt)..
Text := FormatBytes(totalsize); //..und richtig ausgegeben
Total := Total + Totalsize; //lediglich die Summe ist hier falsch!
finally
end;
Steht im Beitrag drin, da wo ein Kommentar ist...