Forum: Object-Pascal / Delphi-Language
Delphi
by tomsel,
4. Jun 2008
Musst du alles ausplaudern? Er wollte doch selber denken. :mrgreen:
Forum: Object-Pascal / Delphi-Language
Delphi
by tomsel,
4. Jun 2008
//001----Procedure-------Anfang--------------
procedure MyWriteLn(leer,text:string);
var i:byte;
begin
for i:=1 to 20 do write(#32); writeln(text); // hier schreibst du 20 Leerzeichen
for i:=1 to length(leer) do // hier verwendest du statt 20 die Länge von leer
write(#32);
for i:=1 to length(text) do
write(#196);
writeln;
Forum: Object-Pascal / Delphi-Language
Delphi
by tomsel,
4. Jun 2008
Ja, ähm, glaub ich ja auch. Ein anderer Vorschlag: Bau deine MyWriteln-Function doch so um, dass du ihr einfach nur die Länge des Leerstrings an Stelle des Strings selbst übergibst.
Mit Leerstring meine ich natürlich nicht '', sondern einen String aus Leerzeichen :zwinker:
Forum: Object-Pascal / Delphi-Language
Delphi
by tomsel,
4. Jun 2008
Wie wär's damit:
Writeln(StringOfChar(#32, i), myString);
Writeln(StringOfChar(#32, i), StringOfChar('_', Length(myString));