delphi继承传值出错

显示全部楼层 · 2009-3-7 22:13:21

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'

千问 · 2009-3-7 22:13:21

有一点不懂，为什么不在函数的形参中加上Conn呢？constructor TDMCustom.Create(AOwner: TComponent; var DataSet: TADODataSet;ASql: TSql; AKeyField: TStringList; AConn: TConnection);...