Ausgabe (Text) automatisch unterstreichen lassen?

[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