aboutsummaryrefslogtreecommitdiffstats
path: root/src/base/UFilesystem.pas
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-04-19 17:43:55 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-04-19 17:43:55 +0000
commitaecd412bef5a839a34617f11ba2fdf247d086584 (patch)
tree40fca0c677035de383688543727c5613c64934cb /src/base/UFilesystem.pas
parent698dff10499ff6bd08a7a23da3c50903216a5384 (diff)
downloadusdx-aecd412bef5a839a34617f11ba2fdf247d086584.tar.gz
usdx-aecd412bef5a839a34617f11ba2fdf247d086584.tar.xz
usdx-aecd412bef5a839a34617f11ba2fdf247d086584.zip
changed THandle to TFileHandle in UPath/UFilesystem as THandle (cardinal in delphi) does not allow -1.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2251 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--src/base/UFilesystem.pas16
1 files changed, 8 insertions, 8 deletions
diff --git a/src/base/UFilesystem.pas b/src/base/UFilesystem.pas
index d4972df5..805bcfe5 100644
--- a/src/base/UFilesystem.pas
+++ b/src/base/UFilesystem.pas
@@ -73,9 +73,9 @@ type
*}
IFileSystem = interface
function ExpandFileName(const FileName: IPath): IPath;
- function FileCreate(const FileName: IPath): THandle;
+ function FileCreate(const FileName: IPath): TFileHandle;
function DirectoryCreate(const Dir: IPath): boolean;
- function FileOpen(const FileName: IPath; Mode: longword): THandle;
+ function FileOpen(const FileName: IPath; Mode: longword): TFileHandle;
function FileAge(const FileName: IPath): integer; overload;
function FileAge(const FileName: IPath; out FileDateTime: TDateTime): boolean; overload;
@@ -151,9 +151,9 @@ type
TFileSystemImpl = class(TInterfacedObject, IFileSystem)
public
function ExpandFileName(const FileName: IPath): IPath;
- function FileCreate(const FileName: IPath): THandle;
+ function FileCreate(const FileName: IPath): TFileHandle;
function DirectoryCreate(const Dir: IPath): boolean;
- function FileOpen(const FileName: IPath; Mode: longword): THandle;
+ function FileOpen(const FileName: IPath; Mode: longword): TFileHandle;
function FileAge(const FileName: IPath): integer; overload;
function FileAge(const FileName: IPath; out FileDateTime: TDateTime): boolean; overload;
function DirectoryExists(const Name: IPath): boolean;
@@ -259,7 +259,7 @@ begin
Result := Path(WideExpandFileName(FileName.ToWide()));
end;
-function TFileSystemImpl.FileCreate(const FileName: IPath): THandle;
+function TFileSystemImpl.FileCreate(const FileName: IPath): TFileHandle;
begin
Result := WideFileCreate(FileName.ToWide());
end;
@@ -269,7 +269,7 @@ begin
Result := WideCreateDir(Dir.ToWide());
end;
-function TFileSystemImpl.FileOpen(const FileName: IPath; Mode: longword): THandle;
+function TFileSystemImpl.FileOpen(const FileName: IPath; Mode: longword): TFileHandle;
begin
Result := WideFileOpen(FileName.ToWide(), Mode);
end;
@@ -431,7 +431,7 @@ begin
Result := Path(SysUtils.ExpandFileName(FileName.ToNative()));
end;
-function TFileSystemImpl.FileCreate(const FileName: IPath): THandle;
+function TFileSystemImpl.FileCreate(const FileName: IPath): TFileHandle;
begin
Result := SysUtils.FileCreate(FileName.ToNative());
end;
@@ -441,7 +441,7 @@ begin
Result := SysUtils.CreateDir(Dir.ToNative());
end;
-function TFileSystemImpl.FileOpen(const FileName: IPath; Mode: longword): THandle;
+function TFileSystemImpl.FileOpen(const FileName: IPath; Mode: longword): TFileHandle;
begin
Result := SysUtils.FileOpen(FileName.ToNative(), Mode);
end;