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