Forum: Sonstige Fragen zu Delphi
by mytbo,
11. Sep 2022
Ich glaube, da ist dir ein Zuordnungsfehler bezüglich des Autors unterlaufen. In meiner Lösung gibt es keine Schleife und die in StringOfChar() ist OK.
Bis bald...
Thomas
Forum: Sonstige Fragen zu Delphi
by mytbo,
11. Sep 2022
Wenn es keine fertige Funktion gibt, dann:
function FillStringLeft(const pmcSource: String; pmChar: Char; pmStrLen: Integer): String;
begin
if Length(pmcSource) >= pmStrLen then
Result := pmcSource
else
Result := Result.Create(pmChar, pmStrLen - Length(pmcSource)) + pmcSource;
end;
var