Unit DRefresh |
Classes |
Functions |
RefreshDataset - Version 1.
Types |
Constants |
Variables |
Functions |
legal, but incredible slow and with side-effects: function GetActiveRecord(ADataSet: TDataSet): Integer; begin with TDataLink.Create do try DataSource := TDataSource.Create(ADataSet); try DataSource.DataSet := ADataSet; BufferCount := 1000; { to set FFirstRecord to 0 - not a good idea } Result := ActiveRecord; finally DataSource.Free; DataSource := nil; end; finally Free; end; end; procedure SetActiveRecord(ADataSet: TDataSet; Value: Integer); begin with TDataLink.Create do begin DataSource := TDataSource.Create(ADataSet); DataSource.DataSet := ADataSet; ActiveRecord := Value; DataSource.Free; DataSource := nil; Free; end; end; *) (* type {$IFDEF WIN32} {$IFDEF VER90} { Delphi 2.0x: } TPublicDataSet = class(TBDEDataSet) {$ELSE DEF VER90} { Delphi >= 3.0: } TPublicDataSet = class(TDataSet) {$ENDIF DEF VER90} {$ELSE DEF WIN32} { Delphi 1.x: } TPublicDataSet = class(TDataSet) {$ENDIF DEF WIN32} public procedure DoCloseCursor; procedure DoOpenCursor; end; procedure TPublicDataSet.DoCloseCursor; begin CloseCursor; end; procedure TPublicDataSet.DoOpenCursor; begin OpenCursor; end;
Types |
Constants |
Variables |