paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 00:10:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Bug #19418

Browse Source 
git-svn-id: trunk@17678 -
This commit is contained in:
joost 2011-06-06 19:43:05 +00:00
parent 82ffdb48c9
commit f5d7fb3d45
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-db/src/base/dsparams.inc
View File

@ -103,12 +103,9 @@ Function TParams.CreateParam(FldType: TFieldType; const ParamName: string;
begin
Result:=Add as TParam;
With Result do
begin
Name:=ParamName;
DataType:=FldType;
ParamType:=ParamType;
end;
Result.Name:=ParamName;
Result.DataType:=FldType;
Result.ParamType:=ParamType;
end;
Function TParams.FindParam(const Value: string): TParam;