UC知道delphi继承传值出错
来源：百度知道 编辑：UC知道 时间：2024/05/29 00:24:16
constructor TDMCustom.Create(AOwner: TComponent; var DataSet: TADODataSet;
ASql: TSql; AKeyField: TStringList);
begin
inherited Create(AOwner);
fDSetCustom := DataSet;
fDSetCustom.Connection:=DMConn.Conn; <---
fDSetCustom.BeforeEdit := SaveKeyValue;
fSql := ASql;
fKeyField := TStringList.Create;
fKeyField.Assign(AKeyField);
end;
是箭头处出错，调用DMConn.Conn时。
回答supercc_cn,因为加上形参的时候也一样,出错就会在调用这个函数的时候出错,错误提示与最初的错误提示一样!谢谢你的回答,请问该怎么解决呢?错误提示:Access violation at address 004B05E3 in module in 'MyPro'
ASql: TSql; AKeyField: TStringList);
begin
inherited Create(AOwner);
fDSetCustom := DataSet;
fDSetCustom.Connection:=DMConn.Conn; <---
fDSetCustom.BeforeEdit := SaveKeyValue;
fSql := ASql;
fKeyField := TStringList.Create;
fKeyField.Assign(AKeyField);
end;
是箭头处出错，调用DMConn.Conn时。
回答supercc_cn,因为加上形参的时候也一样,出错就会在调用这个函数的时候出错,错误提示与最初的错误提示一样!谢谢你的回答,请问该怎么解决呢?错误提示:Access violation at address 004B05E3 in module in 'MyPro'
有一点不懂，为什么不在函数的形参中加上Conn呢？
constructor TDMCustom.Create(AOwner: TComponent; var DataSet: TADODataSet;
ASql: TSql; AKeyField: TStringList; AConn: TConnection);