@Furtbichler
Musste dein Sample gering anpassen gefällt mir jedenfalls sehr viel besser als die 1000 Angabe in Prozent von mir da oben
Delphi-Quellcode:
iProcent := muldiv(100,i,TransNodes.Count);
write (#13, spin[i mod length(Spin) + 1],' ',IntToStr(iProcent)+' % done.');