2
0
Эх сурвалжийг харах

* Added easy access function for params

git-svn-id: trunk@15471 -
michael 15 жил өмнө
parent
commit
8d84ac54ca

+ 7 - 0
packages/fcl-db/src/sqldb/sqldb.pp

@@ -274,6 +274,7 @@ type
     property Prepared : boolean read IsPrepared;
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
     function RowsAffected: TRowsCount; virtual;
+    function ParamByName(Const AParamName : String) : TParam;
   protected
 
     // redeclared data set properties
@@ -823,6 +824,12 @@ begin
     end;
 end;
 
+function TCustomSQLQuery.ParamByName(Const AParamName : String) : TParam;
+
+begin
+  Result:=Params.ParamByName(AParamName);
+end;
+
 procedure TCustomSQLQuery.OnChangeModifySQL(Sender : TObject);
 
 begin