函数的问题**

totole

写了一个取值的函数后面不会用

function  TMDXSXX.GetYear: object;
var
  lParam:Business.Model.TBizParam;
  lContextCurrent:TContextCurrent;
  lBizUrl:TBizURL;
begin
  lContextCurrent:=TContextCurrent.Create(Context);
  lBizUrl:=TBizURL.Create;
  lBizUrl.URL:='Biz:\MDJRYGL\DICT\YWCSZ1.ParamGroup\YEAR.PARAM';
  TRY
  lParam:=lContextCurrent.GetParam(lBizUrl);
  finally
   lBizUrl.Free;
   lContextCurrent.Free;
   end;
  Result := lParam.Value;
end;




procedure TMDXSXX.DataSetXSZBAfterInsert(DataSet: TDataSet);

  dataset.fieldByName('FXS012').asInteger:=getyear();  （请帮忙看看有什么问题吗？）

end;

yancm

dataset.fieldByName('FXS012').asInteger:=getyear;

totole

我也这样书写了。但报错“不能隐式转换“object”成为“INT32””
我的目的是返回一个整数的值！

lixy

NameSpace: Business.System
--------------------------------------------------------------------------------
ObjectHelper = class(System.Object)
public
  constructor create; overload;
  static function CallMethod(o: TObject; methodName: string; methodParams: array of TObject): TObject; overload;
  static function CreateInstance(type: Type; Params: array of TObject): TObject; overload;
  static function CreateSZArray(elementType: Type; length: Longint): System.Array; overload;
  static function GetFieldValue(o: TObject; fieldName: string): TObject; overload;
  static function GetPropertyValue(o: TObject; propName: string; propParams: array of TObject): TObject; overload;
  static function GetType(o: TObject): Type; overload;
  static procedure SetFieldValue(o: TObject; fieldName: string; v: TObject); overload;
  static procedure SetPropertyValue(o: TObject; propName: string; propParams: array of TObject; v: TObject); overload;
  static function ToBoolean(o: TObject; Default: Boolean): Boolean; overload;
  static function ToBoolean(o: TObject): Boolean; overload;
  static function ToChar(o: TObject; Default: Char): Char; overload;
  static function ToChar(o: TObject): Char; overload;
  static function ToDelphiDateTime(o: TObject; Default: Double): Double; overload;
  static function ToDelphiDateTime(o: TObject): Double; overload;
  static function ToFloat(o: TObject): Double; overload;
  static function ToFloat(o: TObject; Default: Double): Double; overload;
  static function ToInt(o: TObject; Default: Longint): Longint; overload;
  static function ToInt(o: TObject): Longint; overload;
  static function ToInt64(o: TObject; Default: Int64): Int64; overload;
  static function ToInt64(o: TObject): Int64; overload;
  static function ToString(o: TObject): string; overload;
  static function ToString(o: TObject; Default: string): string; overload;
end;


转换一下

shangxy

function  TMDXSXX.GetYear: string;
var
  lParam:Business.Model.TBizParam;
  lContextCurrent:TContextCurrent;
  lBizUrl:TBizURL;
begin
  lContextCurrent:=TContextCurrent.Create(Context);
  lBizUrl:=TBizURL.Create;
  lBizUrl.URL:='Biz:\MDJRYGL\DICT\YWCSZ1.ParamGroup\YEAR.PARAM';
  TRY
  lParam:=lContextCurrent.GetParam(lBizUrl);
  finally
   lBizUrl.Free;
   lContextCurrent.Free;
   end;
  Result := variants.VarToStr(lParam.Value);
end;




procedure TMDXSXX.DataSetXSZBAfterInsert(DataSet: TDataSet);

  dataset.fieldByName('FXS012').asInteger:=sysutils.strtoint(getyear);  （请帮忙看看有什么问题吗？）

end;

atiger

还有问题吗？没有就结贴了

atiger

已经电话沟通，ok了