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

Timestamp:

Jun 12, 2023, 12:07:42 AM (17 months ago)

Author:

chronos

Message:

• Added: File menu action Export to export vCard data into CSV, XML, MediaWiki, Excel paste, and HTML.

File:

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

trunk/Packages/Common/Common.pas

@@ -66 +66 @@
 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 LastPos(const SubStr: String; const S: String): Integer;
 function LoadFileToStr(const FileName: TFileName): AnsiString;
@@ -206 +207 @@
 end;*)
 
+function Implode(Separator: Char; 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;
 begin