etwas an zeilenende in der Console schreiben

[turboPASCAL]

Der Umgang mit dieser Includedatei ist sehr einfach.

Siehe Beispiel:

Delphi-Quellcode:

program Dingsda;

{$APPTYPE CONSOLE}

uses
  Windows, Messages;

var
  MyText: String;
  i: Byte;

{$I 'C:\Dokumente und Einstellungen\Admin-User\Desktop\ConTools.inc'}

begin
  // Textfarbe Weiss auf Schwarz setzen
  //(Max Wert 255 ab 128 Blinkende Zeichen im 16 Bit DOS-Mode)
  SetTextAttribute(15);

  //Cursor setzen
  GotoXY(10, 10);
  // Text Ausgeben ohne neue Zeile zu setzen:
  Write('Bitte Text eingeben: ');
  // Textfarbe auf def. Wert setzen
  SetTextAttribute(7);
  //auf Texteingabe warten/lesen
  GotoXY(10, 11);
  read(MyText);

  // Textausgabe 5 x
  for i := 0 to 4 do
  begin
    GotoXY(10, 14);
    ClrEol; //Clear End of Line
    MyText := MyText + Chr(65 + i);  // :-)
    Write(i:4,' -> ', MyText);

    Sleep(50);
  end;

  GotoXY(1, 24);

  // Konsole Beenden.
  ConsoleEnd;
end.

Zitat von shmia:

Ich bin nicht sicher, ob das Includefile gegenüber einer Unit überhaupt einen Vorteil in Bezug auf die Exe-Größe bringt.

Nun ja, ein zwei Byte.