Forum: Object-Pascal / Delphi-Language
Delphi
by coly546,
4. Jun 2008
Hmm..ok,
aber als verständlicher (für mich) sehe ich die Lösung an, wo oben ausschließlich length von etwas verwendet wurde:
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;
Forum: Object-Pascal / Delphi-Language
Delphi
by coly546,
4. Jun 2008
Achso, ich dachte man kann das irgendwie kombinieren.
Also ein mal i:=1 to 20 und wenn man es an anderer Stelle mit der Längen-Berechnung besser findet, verwendet man halt diese wieder.
Wieder was gelernt.
Vielen Dank an alle Beteiligten.
Forum: Object-Pascal / Delphi-Language
Delphi
by coly546,
4. Jun 2008
Richtig, ich als Anfänger möchte mich da erstmal mit einer "ausführlicheren" Schreibweise,
die ich im Moment auch verstehe "durchfummeln". Trotzdem danke tomsel.
Wenn ich die Schleife in die Prozedur mache, befindet sich der Strich aber am linken Bildrand.
//001----Procedure-------Anfang--------------
procedure MyWriteLn(leer,text:string);
var i:byte;
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by coly546,
4. Jun 2008
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:
program textautomatischunterstreichen2;
{$APPTYPE CONSOLE}
Forum: Object-Pascal / Delphi-Language
Delphi
by coly546,
2. Jun 2008
Hallo Thorsten,
danke für deine super Idee :-D
Ähm...das Problem ist nur das er mir nicht die vollständige Überschrift
unterstreicht. :?
program Project;
Forum: Object-Pascal / Delphi-Language
Delphi
by coly546,
2. Jun 2008
Hallo,
danke erstmal für Ihre Antwort.
Kann es sein das es dann immer noch nicht automatisch ist?
Es kann auch gut sein, dass ich mich gerade ein bisschen
bedeppert anstelle. Dann berichtigen Sie mich bitte.
Wenn ich Sie richtig verstanden habe sollte, dass dann in etwa so
aussehen:
Forum: Object-Pascal / Delphi-Language
Delphi
by coly546,
2. Jun 2008
Guten Abend liebes Forum,
im Rahmen des Informatikunterrichtes bin ich auf eine Problemstellung gestoßen,
wo ich keinen Ansatz für finde. Das Problem bezieht sich auf eine Konsolen-Anwendung.
Es geht im speziellen um eine Text-Ausgabe, die automatisch unterstrichen werden soll.
Bisher programmierten wir das immer wie folgt: