Feld mit 30 Zeichen ausgeben, egal wie groß der Inhalt ist

[tylix]

Hallo ich habe ein riesiges Problem,

ich habe z. B. das Feld "Firma1" dieses ist Char30 und ich muss alle 30 Zeichen in ein Textfile schreiben, daher dieser Festsatz hat. Das Heisst nach Firma1 kommt Firma2 und Firma 3, ins. ist die Zeile 90 Zeichen lang.
Diese muss ich auch so ausgeben.
Ob jetzt die der Inhalt 10 Zeichen lang ist oder nur eins ist egal, es müssen 30 Zeichen ausgegeben werden.
Kein semikolon oder ähnliches getrennt.

Könnt ihr mir bitte helfen, ich steh im wahrsten Sinne vor einer mauer.

:wall: :wall: :wall: und komm nicht durch.
Wäre supi wenn ihr mir helfen könntet.

Danke

[edit=sakura] Smileys aktiviert. Mfg, sakura[/edit]

[sakura]

Wie wäre es, eine Funktion zu erstellen, welche das Padding mit Leerzeichen übernimmt...

Delphi-Quellcode:

function RightPadding(const Value: String; Len: String): String;
var
  I: Integer;
begin
  Result := Value;
  SetLength(Result, Len);
  for I := Succ(Length(Value)) to Len do
    Result[I] := #32;
end;

...:cat:...

[ixtreme]

Testbeispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
x : integer;
str : string[30];
begin
 str := 'hallo';
  for x:= 1 to 30 - Length(str) do
  begin
  str := str + ' ';
  end;
  ShowMessage(str);
end;

[sakura]

@ixtreme: Du solltest die Schleife bei 1 beginnen :| Ansonsten statt der [code] die [delphi] Tags nutzen ;-)

...:cat:...

[nailor]

ist das hier:

Delphi-Quellcode:

Result := String1 + StringOfChar(' ', 30 - length(String1));

nicht gleichwertig?

[tylix]

doch funktioniert auch. supi, danke!