Ausgabe (Text) automatisch unterstreichen lassen?

[coly546]

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