Routine dauert ewig

[Robert Marquardt]

Zitat von SirThornberry:

Du weißt das Result am Ende eine Größe von "28 * SizeOf(WideChar)" hat. Also setze result gleich auf diese Größe um zu vermeiden das der Speicher jedes mal neu reserviert und umkopert werden muss.

Delphi-Quellcode:

SetLength(Result, 48);
...
Result[I+1] := WideChar(dez);