Ausgabe (Text) automatisch unterstreichen lassen?

[tomsel]

Delphi-Quellcode:

 //001----Procedure-------Anfang-------------- 
procedure MyWriteLn(leer,text:string); 
var i:byte; 
begin 
  for i:=1 to 20 do write(#32); writeln(text);  // hier schreibst du 20 Leerzeichen
  for i:=1 to length(leer) do                   // hier verwendest du statt 20 die Länge von leer 
    write(#32); 
  for i:=1 to length(text) do 
    write(#196); 
  writeln; 
end; 
//001----Procedure--------Ende---------------- 

//-------Hauptprogramm----Anfang-------------- 
begin 
MyWriteLn('','DasisteineUeberschrift');        // als leer übergibst du hier einen String der Länge 0
readln; 
end. 
//-------Hauptprogramm----Ende----------------

Siehe Kommentare oben, was fällt dir da auf?