Zitat von
taaktaak:
Schön, damit ist's einfacher
- ich gehe aber davon aus, dass es coly546 primär um das "Selberbauen" geht.
Richtig, ich als Anfänger möchte mich da erstmal mit einer "ausführlicheren" Schreibweise,
die ich im Moment auch verstehe "durchfummeln". Trotzdem
danke tomsel.
Wenn ich die Schleife in die Prozedur mache, befindet sich der Strich aber am linken Bildrand.
Delphi-Quellcode:
//001----Procedure-------Anfang--------------
procedure MyWriteLn(leer,text:string);
var i:byte;
begin
for i:=1 to 20 do write(#32); writeln(text);
for i:=1 to length(leer) do
write(#32);
for i:=1 to length(text) do
write(#196);
writeln;
end;
//001----Procedure--------Ende----------------
//-------Hauptprogramm----Anfang--------------
begin
MyWriteLn('','DasisteineUeberschrift');
readln;
end.
//-------Hauptprogramm----Ende----------------
Ich müsste das glaube so machen, dass er nochmal die selbe Anzahl für die Leerzeichen wie oben angegeben, für die Anzahl der Leerzeichen verwendet für den Bereich vor den Strichen (#196).
Dann müsste es ja so aussehen:
Delphi-Quellcode:
//001----Procedure-------Anfang--------------
procedure MyWriteLn(leer,text:string);
var i:byte;
begin
for i:=1 to 20 do write(#32); writeln(text);
for i:=1 to length(text) do
write(#196);
for i:=1 to length(leer) do
write(#32);
writeln;
end;
//001----Procedure--------Ende----------------
//-------Hauptprogramm----Anfang--------------
begin
MyWriteLn('','DasisteineUeberschrift');
readln;
end.
//-------Hauptprogramm----Ende----------------
Nur irgendwie geht das trotzdem nicht.
Zitat:
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.
[Edit] Mit Leerstring meine ich natürlich nicht '', sondern einen String aus Leerzeichen Zwinkern [/Edit]
hmmm...ist nur die Frage wie ich das umsetzen soll
