paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 21:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added easy access function for params

Browse Source 
git-svn-id: trunk@15471 -
This commit is contained in:
michael 2010-06-22 11:48:31 +00:00
parent a2eaa2db34
commit 8d84ac54ca
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-db/src/sqldb/sqldb.pp
View File

@ -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