Habe einmal eine miniprojekt aufgezogen, siehe quelltext unten;
in das MEMO1-Feld aus wikipedia einen längeren Text kopiert und
dann dann kam der Report (page-orientiert!, wollte hier nicht mit
Regionen oder Bänder etc.etc. arbeiten, hat mit dem Übergabeproblem nichts
zu tun) sogar über mehrere Seiten (wie lange eben der Memo-inhalt ist) in der Preview...
thomas, TeamNevrona
Delphi-Quellcode:
procedure TForm17.Button1Click(Sender: TObject);
begin
RvProject1.Execute;
end;
procedure TForm17.RvCustomConnection1GetCols(Connection: TRvCustomConnection);
begin
Connection.WriteField('FieldText1', dtString, 30, '', '');
Connection.WriteField('FieldMemo1', dtMemo, 30, '', '');
end;
procedure TForm17.RvCustomConnection1GetRow(Connection: TRvCustomConnection);
var
s: string;
Buffer: PChar;
begin
s := 'Meine Info für das Textfeld';
Connection.WriteStrData('', S);
GetMem(Buffer, Length(Memo1.Text) + 1);
StrCopy(Buffer, PChar(Memo1.Text));
Connection.WriteBlobData(Buffer^, Length(Memo1.Text));
FreeMem(Buffer);
end;
procedure TForm17.RvCustomConnection1Open(Connection: TRvCustomConnection);
begin
Connection.DataRows := 1;
end;
end.