suihu
你的意思是说
这里修改成这样是吗?
function TFrameDataReorganize.Get_DataSetPointer: Integer;
var ClientDataSet1 : TClientDataSet;
begin
//在这里实现获得这个指针指向的DATASET的数据 导入到创建的内存表中
ClientDataSet1:=TDataSet(某类.DataSetPointer); //这里如何写把dataset的数据赋给前面
function TFrameDataReorganize.Get_DataSetPointer: Integer;
var ClientDataSet1 : TClientDataSet;
begin
//在这里实现获得这个指针指向的DATASET的数据 导入到创建的内存表中
ClientDataSet1.Data :=//这里如何写把dataset的数据赋给前面
end;
procedure TFrameDataReorganize.Set_DataSetPointer(Value: Integer);
begin
//这里是计算完成后怎样把过滤后的数据重写到指针指向的dATASET中呢
指针指向的DATASET这里怎么写达到覆盖指针指向的DATASET数据的目的 :=ClientDataSet1.Data
end;
function TFrameDataReorganize.Get_DataSetPointer: Integer;
var DataSET : Tdataset;
begin
var DataSET : Tdataset;
begin
DataSET:=Tdataset.Create(DataSET);
DataSET := Tdataset(FDataSetPointer^);
DataSource1.DataSet:= DataSET;
DataSET.Open;