paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 08:57:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazActiveX: turn some "var" parameters into normal parameters.

Browse Source 
git-svn-id: trunk@44520 -
This commit is contained in:
juha 2014-03-25 18:17:08 +00:00
parent feef6c7cb2
commit 61b34e74a9
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/activex/importtypelib.pas
View File

@ -71,7 +71,6 @@ implementation
uses typelib; uses typelib;
procedure ImpTypeLib(Sender: TObject); procedure ImpTypeLib(Sender: TObject);
var var
TLI: TTypeLibImporter; TLI: TTypeLibImporter;
bPackage, bActiveX, bRecurse: boolean; bPackage, bActiveX, bRecurse: boolean;
@ -178,7 +177,7 @@ begin
end; end;
end; end;
function ReadDefaultVal(path: string; var reg: TRegistry): string; function ReadDefaultVal(path: string; reg: TRegistry): string;
begin begin
if reg.OpenKeyReadOnly(path) then if reg.OpenKeyReadOnly(path) then
begin begin
@ -187,7 +186,7 @@ begin
end; end;
end; end;
function EnumKeys(path: string; var reg: TRegistry; var lst: TStringList): boolean; function EnumKeys(path: string; reg: TRegistry; lst: TStringList): boolean;
begin begin
Result := False; Result := False;
if reg.OpenKeyReadOnly(path) then if reg.OpenKeyReadOnly(path) then