Changeset 531 for trunk/Packages/Common/Common.pas

Timestamp:

Mar 27, 2024, 12:31:14 PM (8 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Packages/Common/Common.pas (modified) (2 diffs)

trunk/Packages/Common/Common.pas

@@ -184 +184 @@
 (*function DelTree(DirName : string): Boolean;
 var
-  SHFileOpStruct : TSHFileOpStruct;
-  DirBuf : array [0..255] of char;
+  SHFileOpStruct: TSHFileOpStruct;
+  DirBuf: array [0..255] of char;
 begin
   DirName := UTF8Decode(DirName);
   try
-    Fillchar(SHFileOpStruct,Sizeof(SHFileOpStruct),0) ;
-    FillChar(DirBuf, Sizeof(DirBuf), 0 ) ;
-    StrPCopy(DirBuf, DirName) ;
+    FillChar(SHFileOpStruct, Sizeof(SHFileOpStruct), 0);
+    FillChar(DirBuf, Sizeof(DirBuf), 0 );
+    StrPCopy(DirBuf, DirName);
     with SHFileOpStruct do begin
       Wnd := 0;
@@ -200 +200 @@
       fFlags := fFlags or FOF_SILENT;
     end;
-    Result := (SHFileOperation(SHFileOpStruct) = 0) ;
+    Result := (SHFileOperation(SHFileOpStruct) = 0);
   except
-     Result := False;
+    Result := False;
   end;
 end;*)