Funktion / Stream in Richmemo laden ( Lazarus )

[Sir Rufo]

Ich weiß ja nicht, ob das unter Lazarus auch geht, aber ein ganz simples RichMemo1.Lines.Assign( DBField1 ); macht das unter Delphi genauso (ist nur kürzer in der Schreibweise).

Und zurück geht das mit DBField1.Assign(RichMemo1.Lines); .

[manfred_h]

RichMemo1.Lines.Assign( DBField1 ) Sieht ja super kurz aus.
Erhalte aber den Fehler :
Cannot assign a TDAField to a TWin32RichMemoString.

Muss das Morgen mal anschauen.

[mkinzler]

Funktioniert es mit RichMemo1.Lines.Assign( DBField1.asString ) ?

[Sir Rufo]

Zitat von mkinzler:

Funktioniert es mit RichMemo1.Lines.Assign( DBField1.asString ) ?

Für einen Aprilscherz ist es jetzt aber zu spät oder zu früh

Dokumentation zu TPersistent.Assign (da wird diese Methode eingeführt).

[Sir Rufo]

Voraussetzung dafür ist natürlich das Lines ein Nachfahr von TStrings ist und das Feld ein TBlobField .

So geht es auf jeden Fall mit Delphi, dort findet man das in den Sourcen bei TBlobField.Assign und TBlobField.AssignTo .

[manfred_h]

Habe es getestet:
frm_testimony.RM_Testimony.Lines.Assign( tbl_testimony.FieldByName('TESTIMONY').AsString) Erhalte aber leider die Fehlermeldung:
Error: Incompatible type for arg no. 1: Got "WideString", expected "TPersistent"