Changeset 290 for Common

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.

Location:

Common

Files:

• Common.lpk (modified) (2 diffs)
• Common.pas (modified) (1 diff)
• UCommon.pas (modified) (2 diffs)
• UDebugLog.pas (modified) (1 diff)
• UMemory.pas (added)

Common/Common.lpk

@@ -22 +22 @@
     <License Value="GNU/GPL"/>
     <Version Minor="3"/>
-    <Files Count="7">
+    <Files Count="8">
       <Item1>
         <Filename Value="StopWatch.pas"/>
@@ -52 +52 @@
         <UnitName Value="UThreading"/>
       </Item7>
+      <Item8>
+        <Filename Value="UMemory.pas"/>
+        <UnitName Value="UMemory"/>
+      </Item8>
     </Files>
     <i18n>

Common/Common.pas

@@ -9 +9 @@
 uses
   StopWatch, UCommon, UDebugLog, UDelay, UPrefixMultiplier, UURI, UThreading, 
-  LazarusPackageIntf;
+  UMemory, LazarusPackageIntf;
 
 implementation

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);

Common/UDebugLog.pas

@@ -101 +101 @@
 begin
   try
-    if FileExistsUTF8(FileName) then LogFile := TFileStream.Create(FileName, fmOpenWrite)
-      else LogFile := TFileStream.Create(FileName, fmCreate);
+    ForceDirectoriesUTF8(ExtractFileDir(FileName));
+    if FileExistsUTF8(FileName) then LogFile := TFileStream.Create(UTF8Decode(FileName), fmOpenWrite)
+      else LogFile := TFileStream.Create(UTF8Decode(FileName), fmCreate);
     LogFile.Seek(0, soFromEnd);
     Text := FormatDateTime('hh:nn:ss.zzz', Now) + ': ' + Text + LineEnding;