Ausgabe (Text) automatisch unterstreichen lassen?

[coly546]

Hallo Thorsten,
danke für deine super Idee


Ähm...das Problem ist nur das er mir nicht die vollständige Überschrift
unterstreicht.

Delphi-Quellcode:

program Project;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var text:string;

//001----Procedure-------Anfang--------------
procedure MyWriteLn(text:string);
var i:byte;
begin
  writeln('DasisteineUeberschrift');
  for i:=1 to length(text) do
    write('-');
  writeln;
end;
//001----Procedure--------Ende----------------

//-------Hauptprogramm----Anfang--------------
begin
 MyWriteLn('text:string');
 readln;
end.
//-------Hauptprogramm----Ende----------------

Gruß coly546