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.