Formatierte Textausgabe in TMemo

[Dejan Vu]

Oder eben einfach ein TMemo mit einem Courier-Zeichensatz (Hauptsache Fixed-Space).
Und dann die Strings formatiert eintragen, sagen wir so:
myMemo.Add (Format('%20s | %20s | %35s |', [a,b,c])); Das geht auch einfacher, aber da Du C kennst, sollte Format (ähnlich 'sprintf') kein großes Problem darstellen.
Bezüglich der Formatierungsanweisungen musst Du mal in die Hilfe schauen. Auch, ob das 'Format' oder anders heißt, weiß ich nicht genau.

[hathor]

...oder nimm 4 Memos nebeneinander.

[Dejan Vu]

Zitat von hathor:

...oder nimm 4 Memos nebeneinander.

Da ist das mit dem Scrollen so eine Sache.

[hathor]

Lösung:

Delphi-Quellcode:

procedure ScrollMemoDown(Memo: TMemo);
var Handle: HWND;
begin
  SendMessage(Memo.Handle,{ HWND of the Memo Control }
    WM_VSCROLL,    { Windows Message }
    SB_PAGEDOWN,   { Scroll Command }
    0)             { Not Used }
end;


procedure ScrollMemoUp(Memo: TMemo);
var Handle: HWND;
begin
  SendMessage(Memo.Handle, { HWND of the Memo Control }
    WM_VSCROLL,    { Windows Message }
    SB_PAGEUP,     { Scroll Command }
    0);            { Not Used }
end;

procedure TForm2.Button17Click(Sender: TObject);
begin
 ScrollMemoDown(Memo2);
 ScrollMemoDown(Memo3);
 ScrollMemoDown(Memo4);
 ScrollMemoDown(Memo5);
end;

procedure TForm2.Button18Click(Sender: TObject);
begin
 ScrollMemoUp(Memo2);
 ScrollMemoUp(Memo3);
 ScrollMemoUp(Memo4);
 ScrollMemoUp(Memo5);
end;

[Dejan Vu]

Ich meinte auch das horizontale Scrollen. Und vielleicht auch mal ein paar Spalten mehr.

Vielleicht dann doch die einfache Möglichkeit mit dem Format?

[Namenloser]

Nochmal, damit es hier nicht untergeht, der Hinweis auf Format:

Zitat von Dejan Vu:

Oder eben einfach ein TMemo mit einem Courier-Zeichensatz (Hauptsache Fixed-Space).
Und dann die Strings formatiert eintragen, sagen wir so:
myMemo.Add (Format('%20s | %20s | %35s |', [a,b,c])); Das geht auch einfacher, aber da Du C kennst, sollte Format (ähnlich 'sprintf') kein großes Problem darstellen.
Bezüglich der Formatierungsanweisungen musst Du mal in die Hilfe schauen. Auch, ob das 'Format' oder anders heißt, weiß ich nicht genau.

Das war eigentlich schon die Antwort auf die Frage:

Zitat von Konstantin H.:

Gibt es hier (wie zB in C) eine möglichkeit formatiert strings auszugeben? Also eine Tabelle mit Text "zeichnen". Die länge der einzelnen strings ist unbekannt und kann bis zu 35 Zeichen lang sein.

Mehr war doch gar nicht verlangt...

[Dejan Vu]

Zitat von Namenloser:

Nochmal, damit es hier nicht untergeht, ...Mehr war doch gar nicht verlangt...

Danke.

[Konstantin H.]

Hallo,

vielen Dank! Sehr nützliche Tipps. Konnte leider nicht früher antworten... melde mich sobald ich ne ordentliche Lösung habe!