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

lazutils: sort uses clause

Browse Source 
git-svn-id: trunk@41488 -
This commit is contained in:
mattias 2013-06-02 08:32:06 +00:00
parent 4923cf00d8
commit 4e6e36dc04
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/fileutil.inc
View File

@ -1259,7 +1259,7 @@ begin
Temp:='';
end;
If Result<>'' then
Result:=IncludeTrailingPathDelimiter(Result)+name;
Result:=AppendPathDelim(Result)+Name;
If (Result <> '') and FileExistsUTF8(Result) Then
exit;
end;

2
components/lazutils/lazlogger.pas
View File

@ -4,7 +4,7 @@ unit LazLogger;
interface
uses
Classes, SysUtils, FileUtil, types, math, LazLoggerBase, LazClasses;
Classes, SysUtils, types, math, LazLoggerBase, LazClasses, FileUtil;
type

2
components/lazutils/lazloggerbase.pas
View File

@ -11,7 +11,7 @@ unit LazLoggerBase;
interface
uses
Classes, SysUtils, FileUtil, types, math, LazClasses;
Classes, SysUtils, types, math, LazClasses, FileUtil;
type