Delphi-Quellcode:
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;
end;
Das klappt dann nebenbei auch mit UnicodeString.
Wenn Du aus AnsiString ein WideString bzw nur String machst glaube ich Dir das sofort
//edit
und der AnsiChar sollte dann natürlich ein WideChar bzw nur Char sein