Ausgabe (Text) automatisch unterstreichen lassen?

[coly546]

Achso, ich dachte man kann das irgendwie kombinieren.
Also ein mal i:=1 to 20 und wenn man es an anderer Stelle mit der Längen-Berechnung besser findet, verwendet man halt diese wieder.

Wieder was gelernt.

Vielen Dank an alle Beteiligten.

[taaktaak]

Na klar, geht das auch!
Du schreibst einfach eine Funktion, die dir einen String aus einer bestimmten Anzahl von Zeichen zurückgibt - und dann sind wir wieder beim Hinweis von tomsel: Du hättest dir dann deine eigene (spezielle) StringOfChar()-Funktion erstellt!

[coly546]

Hmm..ok,
aber als verständlicher (für mich) sehe ich die Lösung an, wo oben ausschließlich length von etwas verwendet wurde:

Delphi-Quellcode:

procedure MyWriteln(AnzLeerzeichen:Byte;Text:String);
var i : Byte;
begin
  for i:=1 to AnzLeerzeichen do write(' '); writeln(Text);
  for i:=1 to AnzLeerzeichen do write(' ');
  for i:=1 to length(Text) do write('-');
end;

schön Tag noch