formatiertes Memo auslesen

[SilverMoonGirl]

Aloha

Ich möchte gerne eine Spalte aus der Tabelle auslesen und in ein Richedit schreiben. Die Spalte ist vom Typ "formatiertes Memo". So einfach, wie ich mir das dachte gehts anscheinend doch nicht.

Wenn ich es auf diesem Weg mache:  RichEdit.Lines.Add(Query.FieldByName('Kommentar').AsString) bekomme ich die Fehlermldung "Fehler beim Einfügen einer Zeile im RichEdit"

bei dieser Version
RichEdit.Text:= Query.FieldByName('Kommentar').Astring Wird im RichEdit einfach nur ein "[]" eingefügt.

Hab ich da noch irgendwas vergessen oder einfach nur einen Denkfehler?

[marabu]

Hallo Simone,

vielleicht passt das auf dein Problem: klick

Grüße vom marabu

[mikhal]

Müssten eigentlich auch Blobs sein. Schau dir mal auf meiner Site die Tipps

Blob auslesen und
Blob schreiben an. Da wird zwar ein TTable verwendet, aber die Funktionalität sollte genauso mit TQuery funktionieren.

Grüße
Mikhal

[Luckie]

Was willst du? Ein formatiertes Memo auslesen oder Text in ein RichEdit Steuerelement einfügen? Dein Thread-Titel widerspricht den Code, den du gepostet hast.

[SubData]

Das Datenbankfeld wird den Typ "formatiertes Memo" haben... ?!

[SilverMoonGirl]

Zitat von SubData:

Das Datenbankfeld wird den Typ "formatiertes Memo" haben... ?!

es wird nicht nur, es hat siehe Anhang.

@marabu, so funktioniert es leider nicht. Ich bekomme als Fehler immer noch dieses Viereck "[]" zurück

[raiguen]

Hi Simone,

probier das mal:
  RichEdit.Text := Query.FieldByName('kommentar').Value;

[SilverMoonGirl]

@ruiguen leider ändert das auch nichts

Ich habe das mal als ShowMessage anzeigen lassen und das Fenster ist so groß, als wenn der Text drin stehen würde. Zu sehen ist aber nur das Viereck

[mikhal]

Hast du es mal mit Assign versucht, wie auf meiner Site gezeigt wird? Dort wird zwar ein Bild als Blob verwendet (Datentyp Image) aber auch Text und formated Text sind Blobs. Also sollte das Handling ähnlich sein.

Grüße
Mikhal

[mikhal]

ungetestet:

Delphi-Quellcode:

procedure LoadText(Abfrage: TQuery; Rtf: TRichEdit; Feldname: String);
begin
  if (Abfrage.FindField(Feldname) As TBlobField).BlobSize > 0 then
   Rtf.Lines.Assign((Abfrage.FindField(Feldname) As TBlobField));
end;

entsprechend anpassen für Daten speichern.

Mikhal

Korrektur: Statt TRichText muss es TRichEdit heißen...