Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi etwas an zeilenende in der Console schreiben (https://www.delphipraxis.net/86629-etwas-zeilenende-der-console-schreiben.html)

turboPASCAL 16. Feb 2007 15:35

Re: etwas an zeilenende in der Console schreiben
 
Liste der Anhänge anzeigen (Anzahl: 1)
Ja, die gibt es. Im Grunde setzen sich die Farben aus Vorder- und Hintergrundfarben
der Windowsstandard Farbpalette zusammen.
Im Anhang findest du eine Eigenbaumsdosfarbtabelle für Win32. ;)

Zitat:

aber ich hab noch nicht ganz raus, wie ich das ende von einer zeile nun bestimmen kann (also wie breit die zeile ist)
:gruebel: Zeichen zählen.

Delphi-Quellcode:
len := length('123456');

// ...

var
  MyText: String;
  len: Integer;

Begin...
  MyText := 'Das ist mein Text';
len := length(MyText);[delphi]

easteregg 16. Feb 2007 15:38

Re: etwas an zeilenende in der Console schreiben
 
danke für tabelle.

zu dem breitenproblem.
ich möchte eben nicht rausfinden wie lang mein geschriebener text ist, sondern wie breit das fenster ist.
wie schon gesagt wurde ist das normal 85zeichen breit. aber das kann man ja einstellen!
daher wollte ich wissen obs schon was fertiges gibt um diese breite auszulesen (bei mir is die beispielsweise 130zeichen breit)

turboPASCAL 16. Feb 2007 15:41

Re: etwas an zeilenende in der Console schreiben
 
Achso, du meinst die Breite der Console...


Delphi-Quellcode:
uses
  Windows;

function ConsoleSize: TCoord;
var
  cbi: TConsoleScreenBufferInfo;
begin
  getConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), cbi);
  result := cbi.dwSize;
end;

begin
  writeln(ConsoleSize.x);
  writeln(ConsoleSize.y);
...

easteregg 16. Feb 2007 15:45

Re: etwas an zeilenende in der Console schreiben
 
danke sehr :) das ist genau das was ich brauche!


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:01 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz