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

[bundy]

Hallo Leute

Eine Frage

Wie kann mann einen Wert nach Rave übergeben.

Memo1.Text ---------->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

[merlin17]

was mache ich immer mit dem [Code] falsch ?!!?

;-) thomas

[bundy]

Danke :bounce2:
hab ich mir leichter vorgestellt .(Richtig Umständlich gegenüber Qreport).

Danke Nochmal :love:

[merlin17]

hallo,

mit einer customconnection geht es selbstverständlich leichter :-))

siehe:
procedure TForm1.RvCustomConnection1GetRow(Connection: TRvCustomConnection);
var
Buffer : PChar;
begin
GetMem(Buffer,Length(Memo1.Text) + 1);
StrCopy(Buffer, PChar(Memo1.Text));
Connection.WriteBlobData( Buffer^, Length(Memo1.Text));
FreeMem(Buffer);
end;

erfordert aber den einsatz und das knowhow von customconnections.

8) thomas