Formatierte Textausgabe in TMemo

[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.

[Popov]

Wie schon gesagt, bei RichEdit geht das. Hatte eine Prozedur parat, habe sie aber gerade aktualisiert. Sollte aber funktionieren.

Delphi-Quellcode:

//ToDo: Falsche Reihenfolge (z. B. 20, 30, 10) führt zu fehlerhaften Tabstops.
procedure SetTabStops(RichEdit: TRichEdit; TabStops: array of Word);
var
  i: Integer;
begin
  if High(TabStops) > 255 then //255 = Max-Anzahl von Tabstops
    raise Exception.Create('Zu viele Tabstops (über 255).');

  RichEdit.Paragraph.TabCount := 0;
  for i := 0 to High(TabStops) do
  begin
    RichEdit.Paragraph.TabCount := RichEdit.Paragraph.TabCount + 1;
    RichEdit.Paragraph.Tab[i] := TabStops[i];
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.Clear;
  SetTabStops(RichEdit1, [50, 100, 150, 300]);
  RichEdit1.SelText := 'Claudia' + #9 + 'Anja' + #9 + 'Sonja' + #9 + 'Ulrike' + #9 + 'Kiara';
end;

[Perlsau]

Geht auch mit TMemo.

[Konstantin H.]

Hallo,

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