Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
12. Sep 2022
Wenn Du aus AnsiString ein WideString bzw nur String machst glaube ich Dir das sofort :D
//edit
und der AnsiChar sollte dann natürlich ein WideChar bzw nur Char sein
Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
12. Sep 2022
@Dennis07 Weil meine AnsiString Variante um ein dutzendfach schneller ist.
Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
11. Sep 2022
Bekenne mich Schuldig im Sinne der Anklage :P
Der Zwerg kann auch ohne Schleife :lol:
function FillString(const AString: AnsiString; const AChar: AnsiChar; const ALength: Integer): AnsiString;
var
Len: Integer;
begin
Len := ALength - Length(AString); // padding "berechnen"
if (Len > 0) then // kurzer check
Forum: Sonstige Fragen zu Delphi
by KodeZwerg,
11. Sep 2022
oder total oldschool:
function FillString(AString: String; AChar: Char; ALength: integer): String;
var i:integer;
s: string;
begin
if Length(AString) > ALength then
Exit(AString);
s := '';
for i := 0 to Pred(ALength - Length(AString)) do
s := s + AChar;