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;