Forum: Sonstige Fragen zu Delphi
by Walter Landwehr,
11. Sep 2022
Danke an alle jetzt funktioniert es.
Function von mytbo habe ich jetzt benutzt.
Forum: Sonstige Fragen zu Delphi
by Walter Landwehr,
11. Sep 2022
Hallo ich möchte ein String mit variabler Länge immer bis zur einer bestimmten Länge vorne mit 0 auffüllen. habe dazu folgende Function:
function FillString(AString: String; AChar: Char; ALength: integer): String;
var i:integer;
begin
FillChar(Result, ALength, Ord(AChar));
Result := copy(AString, 1, ALength) + copy(Result, ALength - Length(AString), ALength);
end;