Forum: Sonstige Fragen zu Delphi
by Dennis07,
12. Sep 2022
Habe ich nicht, CodeZwerg hatte das schon so, ich habe nur mal eben den Body neu geschrieben. Wie ich aber jetzt sehe, hast du ja auch eine ähnliche Lösung vorgeschlagen.
Forum: Sonstige Fragen zu Delphi
by Dennis07,
12. Sep 2022
Dass das einen signifikanten Unterschied macht bezweifle ich. Deshalb habe ich mal einen Speedtest gemacht.
Um ein ein relevantes Ergebnis zu haben habe ich beide Funktionen je 100.000 mal hintereinander mit zufälligen Strings und einem '0'-Zeichen durchlaufen lassen und habe zufällige Einrückungen im selben Spektrum genommen.
Das ganze habe ich 100 mal durchlaufen lassen und den Durchschnitt...
Forum: Sonstige Fragen zu Delphi
by Dennis07,
12. Sep 2022
Najaaaa, wenn du die Schleife einfach nach "Move" auslagerst, dann ja. :-D
Jo, aber wieso nicht einfach:
function FillString(const AString: AnsiString; const AChar: AnsiChar; const ALength: Integer): AnsiString;
var
Len: Integer;
begin
Len := ALength - Length(AString);
Result := StringOfChar(AChar, Len) + AString;