Ausgabe (Text) automatisch unterstreichen lassen?

[coly546]

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:

Delphi-Quellcode:

writeln('                   Testueberschrift');
writeln('                   ----------------');

halt ganz primitiv und einfach, aber leider nicht automatisch sondern programmiert.

Nun habe ich schon überlegt, ob man das vielleicht mit einer If-Then-Else Anweisung machen könnte.
Quasi wenn Text vorhanden, dann writeln(' ------------'); sonst mache nichts oder sowas in der Art. Leider habe ich auch im Internet keinerlei Informationen darüber gefunden wie man das Automatisieren könnte.



Um Rat und/oder Lösungsansätzen wäre ich euch sehr dankbar.




Beste Grüße und noch einen schönen Abend.
coly546

[Dax]

Du bastelst dir einfach eine eigene WriteLn-Funktion ;) Diese Funktion bricht den Text auf Konsolenbreite um und schreibt nacheinander erst Text, Unterstreichung, Text, Unterstreichung usw.

[coly546]

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:

Delphi-Quellcode:

writeln('Text.....................bis auf die Konsolenbreite');
writeln('---------------------------------------------------');
writeln('Text.....................bis auf die Konsolenbreite');
writeln('---------------------------------------------------');
writeln('Text.....................bis auf die Konsolenbreite');
writeln('---------------------------------------------------');
writeln('Text.....................bis auf die Konsolenbreite');
writeln('---------------------------------------------------');

//und so weiter

Nur dann wäre es ja immer noch nicht automatisch?


//Add

Mir ist gerade noch was eingefallen. Wäre es vielleicht möglich mit Hilfe von
einer If-Then-Else-Anweosung das zu gestallten? Sprich wenn writeln da steht, dann schreibe('----------'), sonst mache nichts.

[omata]

Die Idee ist folgende...

Delphi-Quellcode:

procedure MyWriteLn(text:string);
var i:byte;
begin
  writeln(text);
  for i:=1 to length(text) do
    write('-');
  writeln;
end;

Gruss
Thorsten

[coly546]

Hallo Thorsten,
danke für deine super Idee :-D


Ä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

[Dax]

Delphi-Quellcode:

program Project;

{$APPTYPE CONSOLE}

uses
  SysUtils;

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

//-------Hauptprogramm----Anfang--------------
begin
MyWriteLn('DasisteineUeberschrift');
readln;
end.
//-------Hauptprogramm----Ende----------------

[coly546]

Oh, dann lag es nur an meiner Unfähigkeit.


Vielen Dank, schön das hier auch Anfänger geholfen wird.

Danke!

[Blackheart]

Zitat:

Zitat von coly546

...Vielen Dank, schön das hier auch Anfänger geholfen wird...

Profis brauchen keine hilfe. :wink:

[Dax]

Zitat:

Zitat von Blackheart

Profis brauchen keine hilfe. :wink:

*nääht* Behauptungszonk ;)

[Blackheart]

Profi erwischt, da haben wir es wieder. :thumb: :wink:

[coly546]

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:

Delphi-Quellcode:

MyWriteLn('            ','DasisteineUeberschrift');

verwendeten Leerzeichen via Tastatur, eine "Zählschleife" verwenden.
Als ich nun die besagte Zeile 23 gegen diese:

Delphi-Quellcode:

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

[taaktaak]

Moin, Moin,
die Schleife muss in die Prozedur, du übergibst nur die Schleifenobergrenze als Integer (oder Byte).

[tomsel]

Wie wär's damit:

Delphi-Quellcode:

Writeln(StringOfChar(#32, i), myString);
Writeln(StringOfChar(#32, i), StringOfChar('_', Length(myString));

[taaktaak]

Schön, damit ist's einfacher
- ich gehe aber davon aus, dass es coly546 primär um das "Selberbauen" geht.

[tomsel]

Ja, ähm, glaub ich ja auch. Ein anderer Vorschlag: Bau deine MyWriteln-Function doch so um, dass du ihr einfach nur die Länge des Leerstrings an Stelle des Strings selbst übergibst.

[Edit] Mit Leerstring meine ich natürlich nicht '', sondern einen String aus Leerzeichen :zwinker: [/Edit]

[coly546]

Zitat:

Zitat von taaktaak

Schön, damit ist's einfacher
- ich gehe aber davon aus, dass es coly546 primär um das "Selberbauen" geht.

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.

Delphi-Quellcode:

//001----Procedure-------Anfang--------------
procedure MyWriteLn(leer,text:string);
var i:byte;
begin
  for i:=1 to 20 do write(#32); 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----------------

Ich müsste das glaube so machen, dass er nochmal die selbe Anzahl für die Leerzeichen wie oben angegeben, für die Anzahl der Leerzeichen verwendet für den Bereich vor den Strichen (#196).


Dann müsste es ja so aussehen:

Delphi-Quellcode:

//001----Procedure-------Anfang--------------
procedure MyWriteLn(leer,text:string);
var i:byte;
begin
  for i:=1 to 20 do write(#32); writeln(text);

  for i:=1 to length(text) do
    write(#196);
  for i:=1 to length(leer) do
    write(#32);
  writeln;

end;
//001----Procedure--------Ende----------------

//-------Hauptprogramm----Anfang--------------
begin
MyWriteLn('','DasisteineUeberschrift');
readln;
end.
//-------Hauptprogramm----Ende----------------

Nur irgendwie geht das trotzdem nicht. :wall:

Zitat:

Ja, ähm, glaub ich ja auch. Ein anderer Vorschlag: Bau deine MyWriteln-Function doch so um, dass du ihr einfach nur die Länge des Leerstrings an Stelle des Strings selbst übergibst.

[Edit] Mit Leerstring meine ich natürlich nicht '', sondern einen String aus Leerzeichen Zwinkern [/Edit]

hmmm...ist nur die Frage wie ich das umsetzen soll :(

[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? :zwinker:

[taaktaak]

Nun, du bist der Lösung ja schon sehr nah! Du musst die Unterstreichung genau so beginnen wie die Textausgabe. Also: Zuerst Leerzeichen, dann Text, noch 'mal Leerzeichen, dann Unterstriche. Die Zahl der Leerzeichen übergibst du der Prozedur, also in etwa so

Delphi-Quellcode:

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;

[tomsel]

Musst du alles ausplaudern? Er wollte doch selber denken. :mrgreen:

[taaktaak]

:oops: Na, manchmal ist ein kleiner Schubs auch nicht schlecht, dann ist der Kopf für die nächste Herausforderung frei. Wenn man zu lange an einer Stelle herumdoktert ist das auch nicht motivierend. Schwer einzuschätzen, wann so ein Zeitpunkt erreicht ist. Grundsätzlich gebe ich dir Recht!

[coly546]

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.

[taaktaak]

Na klar, geht das auch!
Du schreibst einfach eine Funktion, die dir einen String aus einer bestimmten Anzahl von Zeichen zurückgibt - und dann sind wir wieder beim Hinweis von tomsel: Du hättest dir dann deine eigene (spezielle) StringOfChar()-Funktion erstellt!

[coly546]

Hmm..ok,
aber als verständlicher (für mich) sehe ich die Lösung an, wo oben ausschließlich length von etwas verwendet wurde:

Delphi-Quellcode:

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;

schön Tag noch :)