Danke schon mal...
Hab's ein wenig angepasst.. Bin mir nur nicht sicher wie ich das mit der Form mache....
Delphi-Quellcode:
procedure TDM.rtf_stream_load(aTable: TDAMemDataTable; aField: String; ARichMemo: TCustomRichMemo);
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;
ARichMemo.LoadRichText(stream);
//
stream.Free;
end;
Der Aufruf:
Delphi-Quellcode:
procedure TDM_testimony.rtf_stream_read(Sender: TObject);
begin
DM.rtf_stream_load(tbl_testimony,'TESTIMONY',RichMemo1);
end;
Ich erhalte den Fehler:
Code:
udm_testimony.pas(137,64) Error: Identifier not found "RichMemo1"
Ich hab Ihm ja auch nicht gesagt wo die Richmemo liegt...
