TDBproxy = Class (TPersistent)
private
fDataSet:TDataSet;
fPropList:PPropList;
fPropCount:integer;
procedure SetInteger(Index: Integer;value:integer);
function GetInteger(Index: Integer):integer;

public
constructor Create(ADateSet: TDataSet);
function ForEach : boolean;
end;

implementation

{ TDBproxy }

constructor TDBproxy.Create(ADateSet: TDataSet);
begin
Assert( assigned(ADateSet));
fDataSet:= ADateSet;
fPropCount := GetPropList(self,fPropList);
end;

function TDBproxy.ForEach: boolean;
begin
result := true;
if fDataSet.eof then
result := false
else
fDataSet.Next;
end;
function TDBproxy.GetInteger(Index: Integer): integer;
begin
assert(index<fPropCount);
{ TODO : 异常处理 }
result :=fDataSet.FieldByName(fPropList^[index].Name).AsInteger;
end;

procedure TDBproxy.SetInteger(Index, value: integer);
begin
assert(index<fPropCount);
{ TODO : 异常处理 }
if fdataset.CanModify then
fDataSet.FieldByName(fPropList^[index].Name).AsInteger := value;
end;