Formatierte Textausgabe in TMemo

[Konstantin H.]

Hallo DP,

folgendes Problem, ich habe massenweise Daten, die in einem Memo angezeigt werden sollen. Ich arbeite mit 4 array[1..50] of string:

Delphi-Quellcode:

TMemo.Lines.ADD(array_1[i] + array_2[i] + array_3[i] + array_4[i])

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. Kann mir vllt jmd behilflich sein?

MfG Konstantin

[Jumpy]

Wäre da nicht eine Listbox oder Listview oder ein StringGrid die bessere Komponente?

[DeddyH]

Ich würde da auch eher zur TListView (Stil vsReport) tendieren.

[bcvs]

Oder ein TRichedit, wenns denn unbedingt Memo-Like sein soll. Da könnte man dann entsprechende Tabs setzen.

Wobei ich auch ein ListView oder Stringgrid bevorzugen würde.

[Dejan Vu]

Oder eben einfach ein TMemo mit einem Courier-Zeichensatz (Hauptsache Fixed-Space).
Und dann die Strings formatiert eintragen, sagen wir so:

Delphi-Quellcode:

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:

Zitat von hathor (Beitrag 1259839)

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

Zitat von Dejan Vu (Beitrag 1259828)

Oder eben einfach ein TMemo mit einem Courier-Zeichensatz (Hauptsache Fixed-Space).
Und dann die Strings formatiert eintragen, sagen wir so:

Delphi-Quellcode:

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:

Zitat von Konstantin H. (Beitrag 1259796)

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:

Zitat von Namenloser (Beitrag 1259848)

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

Danke.:thumb:

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