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

Timestamp:

May 14, 2024, 5:18:30 PM (6 months ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

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

trunk/Packages/Common/Common.pas

@@ -65 +65 @@
 function GetFileFilterItemExt(Filter: string; Index: Integer): string;
 function IntToBin(Data: Int64; Count: Byte): string;
-function Implode(Separator: Char; List: TList<string>): string;
+function Implode(Separator: string; List: TList<string>): string;
+function Implode(Separator: string; List: TStringList; Around: string = ''): string;
 function LastPos(const SubStr: String; const S: String): Integer;
 function LoadFileToStr(const FileName: TFileName): AnsiString;
@@ -184 +185 @@
 (*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 +201 @@
       fFlags := fFlags or FOF_SILENT;
     end;
-    Result := (SHFileOperation(SHFileOpStruct) = 0);
+    Result := (SHFileOperation(SHFileOpStruct) = 0) ;
   except
-    Result := False;
+     Result := False;
   end;
 end;*)
+
+function Implode(Separator: string; List: TStringList; Around: string = ''): string;
+var
+  I: Integer;
+begin
+  Result := '';
+  for I := 0 to List.Count - 1 do begin
+    Result := Result + Around + List[I] + Around;
+    if I < List.Count - 1 then Result := Result + Separator;
+  end;
+end;
 
 function LastPos(const SubStr: String; const S: String): Integer;
@@ -314 +326 @@
 end;
 
-function Implode(Separator: Char; List: TList<string>): string;
+function Implode(Separator: string; List: TList<string>): string;
 var
   I: Integer;