Changeset 568 for Common/Common.pas

Timestamp:

Jan 30, 2024, 11:34:58 PM (9 months ago)

Author:

chronos

Message:

• Modified: Update Common package.

File:

• Common/Common.pas (modified) (3 diffs)

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: Char; List: TStringList; Around: 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;
@@ -207 +207 @@
 end;*)
 
-function Implode(Separator: Char; List: TStringList; Around: string = ''): string;
+function Implode(Separator: string; List: TStringList; Around: string = ''): string;
 var
   I: Integer;
@@ -326 +326 @@
 end;
 
-function Implode(Separator: Char; List: TList<string>): string;
+function Implode(Separator: string; List: TList<string>): string;
 var
   I: Integer;