Context Navigation

Changeset 158 for trunk/Packages

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.

Location:

trunk/Packages/Common

Files:

-              r148
+              r158
     <License Value="Copy left."/>
     <Version Minor="11"/>
     <Files Count="33">
+    <Files Count="34">
       <Item1>
         <Filename Value="StopWatch.pas"/>
 …
         <UnitName Value="CommonPackage"/>
       </Item33>
+      <Item34>
+        <Filename Value="Table.pas"/>
+        <UnitName Value="Table"/>
+      </Item34>
     </Files>
     <CompatibilityMode Value="True"/>

-              r148
+              r158
 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;
 …
 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

-              r148
+              r158
 uses
   StopWatch, Common, DebugLog, Common.Delay, PrefixMultiplier, URI, Threading,
+  StopWatch, Common, DebugLog, Common.Delay, PrefixMultiplier, URI, Threading,
   Memory, ResetableThread, Pool, LastOpenedList, RegistryEx, JobProgressView,
   XML, ApplicationInfo, SyncCounter, ListViewSort, PersistentForm, FindFile,
   ScaleDPI, Theme, StringTable, MetaCanvas, Geometric, Translator, Languages,
   FormAbout, AboutDialog, PixelPointer, DataFile, TestCase, Generics,
+  FormAbout, AboutDialog, PixelPointer, DataFile, TestCase, Generics, Table,
   LazarusPackageIntf;

r156	r158
43	43	msgid "Total estimated time: %s"
44	44	msgstr "Celkový odhadovaný čas: %s"
	45

r156	r158
21	21	msgid "Unknown object for release from pool"
22	22	msgstr "Neznýmý objekt pro uvolnění ze zásobníku"
	23

r156	r158
17	17	msgid "Current thread ID %d not found in virtual thread list."
18	18	msgstr "Aktuální vlákno ID %d nenalezeno v seznamu virtuálních vláken."
	19

Note: See TracChangeset for help on using the changeset viewer.