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

use DirPathExists instead of DirectoryExists, because DirectoryExists('c:\') returns false.

Browse Source 
git-svn-id: trunk@7668 -
This commit is contained in:
vincents 2005-09-10 21:05:08 +00:00
parent 2050a2f6ab
commit 73a0c7cd88
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/lclproc.pas
View File

@ -29,7 +29,7 @@ unit LCLProc;
interface
uses
Classes, SysUtils, Math, FPCAdds, LCLStrConsts, LCLType;
Classes, SysUtils, Math, FPCAdds, FileUtil, LCLStrConsts, LCLType;
type
{ TMethodList - array of TMethod }
@ -239,6 +239,7 @@ function NtoLE(const AValue: QWord): QWord;
implementation
var
InterfaceFinalizationHandlers: TFPList;
DebugTextAlloced: boolean;
@ -851,7 +852,7 @@ var
begin
DebugFileName := GetDebugFileName;
if (length(DebugFileName)>0) and
(DirectoryExists(ExtractFileDir(DebugFileName))) then begin
(DirPathExists(ExtractFileDir(DebugFileName))) then begin
new(DebugText);
DebugTextAlloced := true;