@@ -1828,7 +1828,7 @@ TPythonEngine = class(TPythonInterface)
1828
1828
function EvalStrings ( strings : TStrings; locals, globals : PPyObject ) : PPyObject; overload;
1829
1829
function EvalStringsAsStr ( strings : TStrings ) : string;
1830
1830
function EvalPyFunction (pyfunc, pyargs:PPyObject): Variant;
1831
- function EvalFunction (pyfunc:PPyObject; args: array of const ): Variant;
1831
+ function EvalFunction (pyfunc:PPyObject; const args: array of const ): Variant;
1832
1832
function EvalFunctionNoArgs (pyfunc:PPyObject): Variant;
1833
1833
function CheckEvalSyntax ( const str : AnsiString ) : Boolean;
1834
1834
function CheckExecSyntax ( const str : AnsiString ) : Boolean;
@@ -1844,19 +1844,19 @@ TPythonEngine = class(TPythonInterface)
1844
1844
function MethodsByName ( const aMethodsContainer: string ) : PPyMethodDef;
1845
1845
function VariantAsPyObject ( const V : Variant ) : PPyObject; virtual ;
1846
1846
function PyObjectAsVariant ( obj : PPyObject ) : Variant; virtual ;
1847
- function VarRecAsPyObject ( v : TVarRec ) : PPyObject;
1847
+ function VarRecAsPyObject ( const v : TVarRec ) : PPyObject;
1848
1848
function MakePyTuple ( const objects : array of PPyObject ) : PPyObject;
1849
1849
function MakePyList ( const objects : array of PPyObject ) : PPyObject;
1850
- function ArrayToPyTuple ( items : array of const ) : PPyObject;
1851
- function ArrayToPyList ( items : array of const ) : PPyObject;
1852
- function ArrayToPyDict ( items : array of const ) : PPyObject;
1850
+ function ArrayToPyTuple ( const items : array of const ) : PPyObject;
1851
+ function ArrayToPyList ( const items : array of const ) : PPyObject;
1852
+ function ArrayToPyDict ( const items : array of const ) : PPyObject;
1853
1853
function StringsToPyList ( strings : TStrings ) : PPyObject;
1854
1854
function StringsToPyTuple ( strings : TStrings ) : PPyObject;
1855
1855
procedure PyListToStrings ( list : PPyObject; strings : TStrings );
1856
1856
procedure PyTupleToStrings ( tuple: PPyObject; strings : TStrings );
1857
1857
function ReturnNone : PPyObject;
1858
1858
function FindModule ( const ModuleName : AnsiString ) : PPyObject;
1859
- function FindFunction (ModuleName,FuncName: AnsiString): PPyObject;
1859
+ function FindFunction (const ModuleName,FuncName: AnsiString): PPyObject;
1860
1860
function SetToList ( data : Pointer; size : Integer ) : PPyObject;
1861
1861
procedure ListToSet ( List : PPyObject; data : Pointer; size : Integer );
1862
1862
procedure CheckError (ACatchStopEx : Boolean = False);
@@ -2235,7 +2235,7 @@ TPythonModule = class(TMethodsContainer)
2235
2235
procedure AddClient ( client : TEngineClient );
2236
2236
function ErrorByName ( const AName : AnsiString ) : TError;
2237
2237
procedure RaiseError ( const error, msg : AnsiString );
2238
- procedure RaiseErrorFmt ( const error, format : AnsiString; Args : array of const );
2238
+ procedure RaiseErrorFmt ( const error, format : AnsiString; const Args : array of const );
2239
2239
procedure RaiseErrorObj ( const error, msg : AnsiString; obj : PPyObject );
2240
2240
procedure BuildErrors ;
2241
2241
procedure SetVar ( const varName : AnsiString; value : PPyObject );
@@ -4493,7 +4493,7 @@ function TPythonEngine.EvalPyFunction(pyfunc, pyargs:PPyObject): Variant;
4493
4493
end ;
4494
4494
end ;
4495
4495
4496
- function TPythonEngine.EvalFunction (pyfunc:PPyObject; args: array of const ): Variant;
4496
+ function TPythonEngine.EvalFunction (pyfunc:PPyObject; const args: array of const ): Variant;
4497
4497
var pargs: PPyObject;
4498
4498
begin
4499
4499
CheckPython;
@@ -5017,7 +5017,7 @@ function TPythonEngine.ModuleByName( const aModuleName : AnsiString ) : PPyObj
5017
5017
raise Exception.CreateFmt(' Could not find module: %s' , [aModuleName]);
5018
5018
end ;
5019
5019
5020
- function TPythonEngine.MethodsByName ( const aMethodsContainer: string ) : PPyMethodDef;
5020
+ function TPythonEngine.MethodsByName ( const aMethodsContainer: string ) : PPyMethodDef;
5021
5021
var
5022
5022
i : Integer;
5023
5023
begin
@@ -5361,7 +5361,7 @@ function TPythonEngine.PyObjectAsVariant( obj : PPyObject ) : Variant;
5361
5361
Result := Null;
5362
5362
end ;
5363
5363
5364
- function TPythonEngine.VarRecAsPyObject ( v : TVarRec ) : PPyObject;
5364
+ function TPythonEngine.VarRecAsPyObject ( const v : TVarRec ) : PPyObject;
5365
5365
begin
5366
5366
case v.VType of
5367
5367
vtInteger: Result := PyLong_FromLong( v.VInteger );
@@ -5448,7 +5448,7 @@ function TPythonEngine.MakePyList( const objects : array of PPyObject ) : PPyObj
5448
5448
end ;
5449
5449
end ;
5450
5450
5451
- function TPythonEngine.ArrayToPyTuple ( items : array of const ) : PPyObject;
5451
+ function TPythonEngine.ArrayToPyTuple ( const items : array of const ) : PPyObject;
5452
5452
var
5453
5453
i : Integer;
5454
5454
begin
@@ -5459,7 +5459,7 @@ function TPythonEngine.ArrayToPyTuple( items : array of const) : PPyObject;
5459
5459
PyTuple_SetItem( Result, i, VarRecAsPyObject( items[i] ) );
5460
5460
end ;
5461
5461
5462
- function TPythonEngine.ArrayToPyList ( items : array of const ) : PPyObject;
5462
+ function TPythonEngine.ArrayToPyList ( const items : array of const ) : PPyObject;
5463
5463
var
5464
5464
i : Integer;
5465
5465
begin
@@ -5471,9 +5471,9 @@ function TPythonEngine.ArrayToPyList( items : array of const) : PPyObject;
5471
5471
end ;
5472
5472
5473
5473
// You must give each entry as a couple key(string)/value
5474
- function TPythonEngine.ArrayToPyDict ( items : array of const ) : PPyObject;
5474
+ function TPythonEngine.ArrayToPyDict ( const items : array of const ) : PPyObject;
5475
5475
5476
- function VarRecAsString ( v : TVarRec ) : AnsiString;
5476
+ function VarRecAsString ( const v : TVarRec ) : AnsiString;
5477
5477
begin
5478
5478
case v.VType of
5479
5479
vtChar: Result := v.VChar;
@@ -5700,7 +5700,7 @@ function TPythonEngine.FindModule( const ModuleName : AnsiString ) : PPyObject;
5700
5700
Result := nil ;
5701
5701
end ;
5702
5702
5703
- function TPythonEngine.FindFunction (ModuleName,FuncName: AnsiString): PPyObject;
5703
+ function TPythonEngine.FindFunction (const ModuleName,FuncName: AnsiString): PPyObject;
5704
5704
var
5705
5705
module ,func: PPyObject;
5706
5706
begin
@@ -6836,7 +6836,7 @@ procedure TPythonModule.RaiseError( const error, msg : AnsiString );
6836
6836
ErrorByName( error ).RaiseError( msg );
6837
6837
end ;
6838
6838
6839
- procedure TPythonModule.RaiseErrorFmt ( const error, format : AnsiString; Args : array of const );
6839
+ procedure TPythonModule.RaiseErrorFmt ( const error, format : AnsiString; const Args : array of const );
6840
6840
begin
6841
6841
RaiseError( error, AnsiString(SysUtils.Format( string(format), Args )) );
6842
6842
end ;
0 commit comments