Absolute Database-Fastreports

[Furtbichler]

Ich bin vermutlich dumm wie Brot, aber ein TfrxUserDataset hat -zumindest bei mir- nix zum Anlegen einer Query. Da kann man einen 'OnGetValue' und ein 'OnCheckEof' Event setzen.

Delphi-Quellcode:

procedure TForm14.frxUserDataSetCheckEOF(Sender: TObject; var Eof: Boolean);
begin
  eof :=  frxUserDataSet.RecNo=21000;
end;

procedure TForm14.frxUserDataSetGetValue(const VarName: string;
  var Value: Variant);
begin
  value := intToStr(frxUserDataSet.RecNo)+':'+VarToStr(VarName);
end;

Man kann da noch 'OnNext' und 'OnPrior' setzen, aber ich brauch das hier für die Demo nicht. 'RecNo' zählt von alleine durch.