paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 19:39:18 +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 interface
uses uses
Classes, SysUtils, Math, FPCAdds, LCLStrConsts, LCLType; Classes, SysUtils, Math, FPCAdds, FileUtil, LCLStrConsts, LCLType;
type type
{ TMethodList - array of TMethod } { TMethodList - array of TMethod }
@ -239,6 +239,7 @@ function NtoLE(const AValue: QWord): QWord;
implementation implementation
var var
InterfaceFinalizationHandlers: TFPList; InterfaceFinalizationHandlers: TFPList;
DebugTextAlloced: boolean; DebugTextAlloced: boolean;
@ -851,7 +852,7 @@ var
begin begin
DebugFileName := GetDebugFileName; DebugFileName := GetDebugFileName;
if (length(DebugFileName)>0) and if (length(DebugFileName)>0) and
(DirectoryExists(ExtractFileDir(DebugFileName))) then begin (DirPathExists(ExtractFileDir(DebugFileName))) then begin
new(DebugText); new(DebugText);
DebugTextAlloced := true; DebugTextAlloced := true;