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

LCL: fixed warnings by using out parameter instead of var paramater

Browse Source 
git-svn-id: trunk@13579 -
This commit is contained in:
vincents 2008-01-02 10:00:22 +00:00
parent 7e5dbd0350
commit 0ced829a0f
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/dialogs.pp
View File

@ -500,10 +500,10 @@ type
TSelectDirOpts = set of TSelectDirOpt;
function SelectDirectory(const Caption, InitialDirectory: string;
var Directory: string): boolean;
out Directory: string): boolean;
function SelectDirectory(const Caption, InitialDirectory: string;
var Directory: string; ShowHidden: boolean; HelpCtx: Longint = 0): boolean;
function SelectDirectory(var Directory: string;
out Directory: string; ShowHidden: boolean; HelpCtx: Longint = 0): boolean;
function SelectDirectory(out Directory: string;
Options: TSelectDirOpts; HelpCtx: Longint): Boolean;

6
lcl/include/messagedialogs.inc
View File

@ -255,13 +255,13 @@ begin
end;
function SelectDirectory(const Caption, InitialDirectory: string;
var Directory: string): boolean;
out Directory: string): boolean;
begin
Result:=SelectDirectory(Caption,InitialDirectory,Directory,false);
end;
function SelectDirectory(const Caption, InitialDirectory: string;
var Directory: string; ShowHidden: boolean; HelpCtx: Longint): boolean;
out Directory: string; ShowHidden: boolean; HelpCtx: Longint): boolean;
var
SelectDirectoryDialog: TSelectDirectoryDialog;
begin
@ -279,7 +279,7 @@ begin
Directory:='';
end;
function SelectDirectory(var Directory: string;
function SelectDirectory(out Directory: string;
Options: TSelectDirOpts; HelpCtx: Longint): Boolean;
var
SelectDirectoryDialog: TSelectDirectoryDialog;