Versuche nur meine Ursprüngliche Idee zum laufen zu bringen...
Irgendwie fehlt mir da das Grundverständniss.....
Delphi-Quellcode:
procedure TDM.rtf_stream_load(aTable: TDAMemDataTable; aField: String; aForm: TForm; aComponent: TObject);
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.aComponent.LoadRichText(stream);
//
stream.Free;
end;
Ich erhalte hier:
Code:
udm.pas(229,12) Error: identifier idents no member "aComponent"
Sorry wenn ich da nochmals nachfrage
