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