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

Timestamp:

Jun 5, 2023, 7:40:45 PM (12 months ago)

Author:

chronos

Message:

• Modified: Update Common and VCard package. Remove U prefix from unit names.

File:

• trunk/Packages/Common/Common.pas (moved) (moved from trunk/Packages/Common/UCommon.pas ) (4 diffs)

trunk/Packages/Common/Common.pas

@@ -1 @@
-unit UCommon;
+unit Common;
 
 interface
@@ -10 +10 @@
 
 type
-  TObjects = TObjectList<TObject>;
   TArrayOfByte = array of Byte;
   TExceptionEvent = procedure(Sender: TObject; E: Exception) of object;
@@ -66 +65 @@
 function GetFileFilterItemExt(Filter: string; Index: Integer): string;
 function IntToBin(Data: Int64; Count: Byte): string;
+function Implode(Separator: Char; List: TList<string>): string;
 function LastPos(const SubStr: String; const S: String): Integer;
 function LoadFileToStr(const FileName: TFileName): AnsiString;
@@ -314 +314 @@
 end;
 
+function Implode(Separator: Char; List: TList<string>): string;
+var
+  I: Integer;
+begin
+  Result := '';
+  for I := 0 to List.Count - 1 do begin
+    Result := Result + List[I];
+    if I < List.Count - 1 then Result := Result + Separator;
+  end;
+end;
+
 {$IFDEF WINDOWS}
 function GetUserName: string;