Konsolenanwendung: Leerzeichen minus String rechnen.

[Klaus01]

Zitat von coly546:

Ich habe es hinbekommen mit:

Delphi-Quellcode:

procedure P_Spalte(Text:String);
var i:Byte;
begin
for i:=0 to (9-(length(Eingabe)) do begin
write(' ');end;

oder so:

Delphi-Quellcode:

const
  MaxSpalten = 10;
...

while length(Eingabe) < MaxSpalten do
  Eingabe  := Eingabe + ' ';

Grüße
Klaus