Changeset 290 for Common/UCommon.pas

Timestamp:

Nov 4, 2011, 11:42:45 AM (13 years ago)

Author:

george

Message:

• Added: Unit UMemory for manipulation with memory block. Unit contains simple class TPositionMemory for storing position with memory block and mimic behaviour of TMemoryStream.
• Fixed: Deleting files with special national characters.

File:

• Common/UCommon.pas (modified) (2 diffs)

Common/UCommon.pas

@@ -7 +7 @@
 uses
   {$IFDEF Windows}Windows,{$ENDIF}
-  Classes, SysUtils, SpecializedList, StrUtils, Dialogs, Process,
+  Classes, SysUtils, StrUtils, Dialogs, Process,
   FileUtil; //, ShFolder, ShellAPI;
 
@@ -102 +102 @@
   Path := IncludeTrailingPathDelimiter(APath);
 
-  Find := FindFirst(Path + AFileSpec, faAnyFile xor faDirectory, SearchRec);
+  Find := FindFirst(UTF8Decode(Path + AFileSpec), faAnyFile xor faDirectory, SearchRec);
   while Find = 0 do begin
-    DeleteFile(Path + SearchRec.Name);
+    DeleteFileUTF8(Path + UTF8Encode(SearchRec.Name));
 
     Find := SysUtils.FindNext(SearchRec);