Hi,
ich möchte meine automatische Text-Unterstreichung noch etwas verfeinern.
Und zwar sollte man auch den "Freiraum" vor der Überschrift frei bestimmen können.
Dazu habe ich die Prozedur wie folgt erweitert:
Delphi-Quellcode:
program textautomatischunterstreichen2;
{$APPTYPE CONSOLE}
uses
SysUtils;
//001----Procedure-------Anfang--------------
procedure MyWriteLn(leer,text:string);
var i:byte;
begin
write(leer); writeln(text);
for i:=1 to length(leer) do
write(#32);
for i:=1 to length(text) do
write(#196);
writeln;
end;
//001----Procedure--------Ende----------------
//-------Hauptprogramm----Anfang--------------
begin
MyWriteLn(' ','DasisteineUeberschrift');
readln;
end.
//-------Hauptprogramm----Ende----------------
So weit so gut, allerdings möchte ich anstelle von den in der Zeile 23:
MyWriteLn(' ','DasisteineUeberschrift');
verwendeten Leerzeichen via Tastatur, eine "Zählschleife" verwenden.
Als ich nun die besagte Zeile 23 gegen diese:
MyWriteLn(for i:=1 to 20 do write(#32),'DasisteineUeberschrift');
mit "Zählschleife" ersetzte, wollte er das Programm nicht mehr compilieren.
Jetzt stellt sich für mich die Frage, was ich machen kann damit es auch mit einer "Zählschleife" funktioniert.
freundliche Grüße
coly546