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