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

[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;