String mit Zeichen auffüllen

[Tazidus]

Hallo,

ich habe einen String und möchte diesen nun mit Leerzeichen auffüllen und zwar vor dem String.

Bisher habe ich eine Schleife benutzt, die einen Temp-String bastelt und diesen dann vor dem eigentlichen String einfügt (siehe Beispiel):

Delphi-Quellcode:

      
Temp := '';
for n := 1 to (20 - length(Text)) do temp := temp + ' ';
Text := temp + Text;

Daher meine Frage:

In Delphi gibt es ja eine Menge Funktionen um mit Strings einiges zu machen.
Gibt es eine Funktion, die mir die Arbeit der Schleife abnehmen kann, wie z.B.
eine Funktion mit dem Namen FillStr(Zeichen: Char; n:Count): String;
Zeichen = Zeichen welches aufgefüllt werden soll
n = Anzahl an Zeichen

:gruebel:

[Benedikt]

Hi,

DupeString aus der Unit StrUtils sollte dir weiterhelfen ;)

Delphi-Quellcode:

Text:=DupeString(' ', 20-Length(Text))+Text;

MfG Benedikt

[marabu]

Hallo,

noch eine Alternative:

Delphi-Quellcode:

procedure Test;
var
  s: string;
begin
  s := 'It''s easy';
  ShowMessage(Format('%20s', [s]));
end;

Bei Zahlen hilft auch schon Str():

Delphi-Quellcode:

var
  n: Integer;
  s: string;
begin
  n := 123;
  Str(n:20, s);
  ShowMessage(s);
end;

Freundliche Grüße

[himitsu]

Statt DupeString würde ich bei einem einzelnen Zeichen eher StringOfChar verwenden.