Konsolenanwendung: Leerzeichen minus String rechnen.

[coly546]

Hi,
danke für den Tipp, aber wir sollen das so machen

Primär geht es mir aber ehr um das Problem, wie ich folgendes umsetzen kann:
Es gibt Platz für 10 Zeichen, wenn 10 Zeichen verwendet werden, mache nichts,
sonst schreibe genau so viele Zeichen, sodass du den Platz für 10 Zeichen ausnutzt.

Könnte man vielleicht:

Delphi-Quellcode:

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

für mein Problem verwenden?


//Edit
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;