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):

markieren

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

Hi,

DupeString aus der Unit StrUtils sollte dir weiterhelfen
Text:=DupeString(' ', 20-Length(Text))+Text; MfG Benedikt

Hallo,

noch eine Alternative:

markieren

Delphi-Quellcode:

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

Bei Zahlen hilft auch schon Str():

markieren

Delphi-Quellcode:

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

Freundliche Grüße

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