Leerzeichen erzeugen

[SAP]

Hallo zusammen,

ich programmiere eingentlich nur bedint für ein Projekt Delphi, da ich Delphi für die OpenOffice Anbindung benötige. Nun möchte ich meine Strings in Delphi bearbeiten, dabei habe ich folgende Frage:

Gibt es in Delphi auch eine Funktion mit der man Leerzeichen erzeugen kann? Also ich will z.B. einen String mit 10 Leerzeichen auffüllen, damit er eine gewisse Länge bekommt und dann daran wieder einen String hängen usw. so will ich mir eine ganze Zeile erzeugen.

Ich kenne das ganze unter Visual Basic, da wird es mit Space(AnzahlLeerzeichen : integer)
realisiert. Auch wenn die Frage dem ein oder anderen hier ziemlich simpel vorkommt, aber ich habe alles mögliche bei Google gefunden nur nicht das was ich brauche.

Vielen Dank vorab an alle die mir helfen.

Beste Grüße

SAP

[DelphiAndreas]

Delphi-Quellcode:

while length(string) < 10 do
begin
     string := ' ' + String;
end;

so hab ich das immer gemacht, weiß nicht ob das besonders elegant ist, aber es funktioniert

[Ultimator]

Sowas wie FillChar?

edit: Argh, wie komm ich denn dadrauf? Ich meinte auch StringOfChar, wie mein Nachposter

[tomsel]

...
s := StringOfChar(#32, iAnzahl);
...

[chrisw]

oder AppendStr()

[SAP]

Zitat:

Delphi-Quellcode:

while length(string) < 10 do
begin
     string := ' ' + String;
end;

So hätte ich mir das auch vorgestellt, dass ich mir da eine eigene Funktion schreibe,
aber ich denke so eine grundlegende Funktion wird es in Delphi auch geben, da ich aber unter Borland C++ Builder programmiere, habe ich leider keine Delphi Hilfe wo ich nachschlagen könnte, aber ich werde mal die Varianten:

Zitat:

StringOfChar(#32, iAnzahl)

und

Zitat:

AppendStr()

ausprobieren. Vielen Dank an Euch allen für Eure Antworten.

Beste Grüße

SAP

[Lannes]

Hallo,

da gibt es noch die Funktion Format.

Ein Beispiel:

Delphi-Quellcode:

var sFS : String;
begin
  sFS := '%0:-15s %1:-15s %2:3s';//'-' > Leerzeichen rechts, sonst links
  Memo1.Lines.add(Format('%0:-15s %1:-15s %2:s',['Vorname','Name','Alter']));
  Memo1.Lines.add(StringOfChar('-',37));
  Memo1.Lines.add(Format(sFS,['Hans','Meier','42']));
  Memo1.Lines.add(Format(sFS,['Peter','Murks','35']));
  Memo1.Lines.add(Format(sFS,['Klara','Musterfrau','102']));

Die Ausgabe:

Code:

Vorname         Name            Alter
-------------------------------------
Hans            Meier            42
Peter           Murks            35
Klara           Musterfrau      102