ein StringGrid mit RaveReport aus drucken?

[merlin17]

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.