CreateParam bad type parametr
Original Reporter info from Mantis: inferno.alex
Description:
in packages/fcl-db/src/base/dsparams.inc
Function TParams.CreateParam(FldType: TFieldType; const ParamName: string;
ParamType: TParamType): TParam;
begin
Result:=Add as TParam;
With Result do
begin
Name:=ParamName;
DataType:=FldType;
ParamType:=ParamType;
end;
end;
Must be:
Function TParams.CreateParam(FldType: TFieldType; const ParamName: string;
ParamType: TParamType): TParam;
begin
Result:=Add as TParam;
With Result do
begin
Name:=ParamName;
DataType:=FldType;
//ParamType:=ParamType; <<-- bug here
end;
Result.ParamType:=ParamType; //<<-- Better
end;
Mantis conversion info:
-
Mantis ID: 19418
-
OS: all
-
OS Build: all
-
Build: from trunk
-
Platform: all
-
Version: 2.5.1
-
Fixed in version: 2.6.0
-
Fixed in revision: r17678 (#f5d7fb3d)
-
Target version: 2.6.0