Rave5 Wie kann man Wert übergeben Memo ---> Rave Memo??

[merlin17]

hallo,

Code:

var
   MyPage   : TRavePage;
   MyMemo   : TRaveMemo;
   Buffer   : PChar;
begin
   with RvProject1.ProjMan do begin
        MyPage := FindRaveComponent('Report1.Page1', nil) as TRavePage;
        MyMemo := FindRaveComponent('Memo1', MyPage) as TRaveMemo;
        GetMem(Buffer,Length(Memo1.Text) + 1);
        StrCopy(Buffer, PChar(Memo1.Text));
        MyMemo.Text:=Buffer;
        FreeMem(Buffer);
    end;
   RvProject1.Execute;

8) Thomas