Memo in DBGrid Komponente anzeigen

[delphicoder123]

Hallo,
ich habe ein DBGrid auf meinem Formular. Eine Spalte vom DBGrid ist ein Memofeld. Allerdings bekomme ich für diese Spalte, nur die Ausgabe "(Memo)". Wie schaffe ich es, dass der richtige Inhalt des Memos im DBGrid angezeigt wird?

Ich wäre euch sehr dankbar, wenn ihr mir helfen könntet, da ich noch ein Anfänger bin.

[Delphi.Narium]

Bei der mir bekannten DBGrid-Version ist das von Dir beschriebene Verhalten der Normalfall.
Bei dem DBGrid aus aus der JVCL kann man auswählen, ob der Text Memo oder der Memoinhalt angezeigt werden soll, auch gibt es die Möglichkeit, die Inhalt des Memo als Hint anzuzeigen, wenn man mit der Maus über die entsprechende Zelle im DBGrid fährt.

Ob andere, aktuelle Delphikomponenten das können, weiß ich nicht.

[joachimd]

Du kannst das Feld statisch anlegen und einen Eventhandler für OnGetText einhängen.

[peterbelow]

Zitat:

Hallo,
ich habe ein DBGrid auf meinem Formular. Eine Spalte vom DBGrid ist ein Memofeld. Allerdings bekomme ich für diese Spalte, nur die Ausgabe "(Memo)". Wie schaffe ich es, dass der richtige Inhalt des Memos im DBGrid angezeigt wird?

Generell ist es keine gute Idee, Memo-Felder in einem Grid anzuzeigen. Schließlich benutzt man solche Felder gemeinhin, um mehrzeiligen Text, durchaus auch recht langen, abzuspeichern. Die gängige Lösung ist es, auf dem Formular außer dem grid auch noch ein TDBMemo pro Memofeld zu haben, das dann den zu der aktiven Zeile im Grid gehörenden Inhalt anzeigt. Falls Du in Grid unbedingt eine Spalte für ein Memofeld haben willst nimm anstelle dessen ein berechnetes Feld, dass dann z. B. die ersten Zeichen der ersten Zeile des Textes anzeigt, mit einem ... am Ende.

[delphicoder123]

Zitat von joachimd:

Du kannst das Feld statisch anlegen und einen Eventhandler für OnGetText einhängen.

Kannst du das bitte genauer beschreiben?

[joachimd]

Doppelklick auf die Table-(Query-) Komponente zum Öffnen des Feldeditors. Dann darin rechte Maustaste | Alle Felder hinzufügen. Wähle in der Liste das Memo-Feld aus, gehe im Objektinspektor auf Ereignisse und Doppelklicke auf OnGetText. Dort schreibst Du dann, was angezeigt werden soll.
Beispiel für statischen Text:

Delphi-Quellcode:

procedure TForm1.AdsTable1mGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  Text := 'hallo welt';
end;

oder für dynamischen Text, 10 Zeichen des Memo anzeigen:

Delphi-Quellcode:

procedure TForm1.AdsTable1mGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  Text := Copy(Sender.AsString, 1, 10)+'...';
end;