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

lazutils: clean up

Browse Source 
git-svn-id: trunk@41439 -
This commit is contained in:
mattias 2013-05-28 08:09:50 +00:00
parent b40fb20f03
commit 3a9e8d9e0c
2 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/fileutil.pas
View File

@ -37,7 +37,7 @@ ToDo:
- Any other functions/procedures that are needed in LazFileUtils too, should be moved
to LazFileUtils, and in Fileutil inlined to use LazileUtils counterparts
PLEASE DO NOT ADD MORE UTF8 RELATED (FILE) ROUTINES TO THIS UNIT !
DO NOT ADD MORE UTF8 RELATED (FILE) ROUTINES TO THIS UNIT !
***************************************************************************** }
unit FileUtil;
@ -47,7 +47,7 @@ unit FileUtil;
interface
uses
SysConst, Classes, SysUtils, Masks, LazUtilsStrConsts, lazutf8, LazFileUtils;
Classes, SysUtils, Masks, LazUtilsStrConsts, LazUTF8, LazFileUtils;
{$if defined(Windows) or defined(darwin)}
{$define CaseInsensitiveFilenames}

4
components/lazutils/winfileutil.inc
View File

@ -1,7 +1,5 @@
{%MainUnit fileutil.pas}
{------------------------------------------------------------------------------
GetFileDescription
------------------------------------------------------------------------------}
@ -27,8 +25,6 @@ begin
Result:=Filename;
end;
function ConsoleToUTF8(const s: string): string;// converts UTF8 string to console encoding (used by Write, WriteLn)
var
Dst: PChar;