moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-27 19:42:22 -05:00
Code Issues Releases Wiki Activity

Merge branch 'master' into lape-integration

Browse Source
This commit is contained in:
Merlijn Wajer 2011-10-02 00:46:48 +02:00
commit c6fc633f02
2 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Units/MMLAddon/PSInc/Wrappers/file.inc
View File

@ -103,7 +103,7 @@ end;
function ps_DeleteFile(const Filename: string): Boolean; extdecl; function ps_DeleteFile(const Filename: string): Boolean; extdecl;
begin begin
Result := DeleteFileUTF8(Filename); Result := CurrThread.Client.MFiles.DeleteFile(Filename);
end; end;
procedure ps_WriteINI(const Section, KeyName, NewString, FileName: string);extdecl; procedure ps_WriteINI(const Section, KeyName, NewString, FileName: string);extdecl;

16
Units/MMLCore/files.pas
View File

@ -45,6 +45,7 @@ type
function OpenFile(Path: string; Shared: Boolean): Integer; function OpenFile(Path: string; Shared: Boolean): Integer;
function RewriteFile(Path: string; Shared: Boolean): Integer; function RewriteFile(Path: string; Shared: Boolean): Integer;
function AppendFile(Path: string): Integer; function AppendFile(Path: string): Integer;
function DeleteFile(Filename: string): Boolean;
procedure CloseFile(FileNum: Integer); procedure CloseFile(FileNum: Integer);
function EndOfFile(FileNum: Integer): Boolean; function EndOfFile(FileNum: Integer): Boolean;
function FileSizeMuf(FileNum: Integer): LongInt; function FileSizeMuf(FileNum: Integer): LongInt;
@ -334,6 +335,21 @@ begin
end; end;
end; end;
function TMFiles.DeleteFile(Filename: string): Boolean;
var
Continue : Boolean;
begin
if Assigned(WriteFileEvent) then
begin;
Continue := true;
WriteFileEvent(Self, Filename, continue);
if not Continue then
exit(False);
end;
Result := DeleteFileUTF8(Filename);
end;
{/\ {/\
Free's the given File at the given index. Free's the given File at the given index.
/\} /\}