Funktion / Stream in Richmemo laden ( Lazarus )

**manfred_h**

Hallo zusammen

vor einiger Zeit habe ich damit begonnen meine Delphianwendung nach Lazarus zu migrieren.
Da ich in Lazarus keine Richtext-Memokomponente mit DB anbindung gefunden habe verwende ich richmemo

http://wiki.lazarus.freepascal.org/RichMemo

Ich verwende gerade diese Funktion ( die noch unschön ist ).

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TDM.rtf_stream_load(aTable: TDAMemDataTable; aField: String);

var

    rtfString : String;

begin

     //Get the data from the database as AnsiString

     rtfString := aTable.FieldByName(aField).AsAnsiString;

     //Write the string into a stream

     stream := TMemoryStream.Create;

     stream.Clear;

     stream.Write(PAnsiChar(rtfString)^, Length(rtfString));

     stream.Position := 0;

     //aForm.aElement.LoadRichText(stream);

     //stream.Free;

end;

Der Aufruf erfolgt so:

markieren

Delphi-Quellcode:

			procedure TDM_testimony.rtf_stream_read(Sender: TObject);

begin

     DM.rtf_stream_load(tbl_testimony,'TESTIMONY');

     frm_testimony.RichMemo1.LoadRichText(stream);

     stream.Free;

end;

Frage:
Wie kann ich der Funktion auch noch das zu verwendende Form übergeben?

Danke für Eure Tipps.

Funktion / Stream in Richmemo laden ( Lazarus )

Funktion / Stream in Richmemo laden ( Lazarus )

Forumregeln