Changeset 158 for trunk/Packages/Common

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:

• Common.lpk (modified) (2 diffs)
• Common.pas (modified) (2 diffs)
• CommonPackage.pas (modified) (1 diff)
• Languages/DataFile.cs.po (modified) (1 diff)
• Languages/DebugLog.cs.po (modified) (1 diff)
• Languages/FindFile.cs.po (modified) (1 diff)
• Languages/FormAbout.cs.po (modified) (1 diff)
• Languages/JobProgressView.cs.po (modified) (1 diff)
• Languages/Languages.cs.po (modified) (1 diff)
• Languages/Pool.cs.po (modified) (1 diff)
• Languages/ResetableThread.cs.po (modified) (1 diff)
• Languages/ScaleDPI.cs.po (modified) (1 diff)
• Languages/TestCase.cs.po (modified) (1 diff)
• Languages/Threading.cs.po (modified) (1 diff)
• Table.pas (added)

trunk/Packages/Common/Common.lpk

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

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

trunk/Packages/Common/CommonPackage.pas

@@ -9 +9 @@
 
 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;
 

trunk/Packages/Common/Languages/DataFile.cs.po

@@ -21 +21 @@
 msgid "Data file"
 msgstr "Datový soubor"
+

trunk/Packages/Common/Languages/DebugLog.cs.po

@@ -16 +16 @@
 msgid "Filename not defined"
 msgstr "Neurčen soubor"
+

trunk/Packages/Common/Languages/FindFile.cs.po

@@ -16 +16 @@
 msgid "Directory not found"
 msgstr "Adresář nenalezen"
+

trunk/Packages/Common/Languages/FormAbout.cs.po

@@ -26 +26 @@
 msgid "Version"
 msgstr "Verze"
+

trunk/Packages/Common/Languages/JobProgressView.cs.po

@@ -43 +43 @@
 msgid "Total estimated time: %s"
 msgstr "Celkový odhadovaný čas: %s"
+

trunk/Packages/Common/Languages/Languages.cs.po

@@ -981 +981 @@
 msgid "Zulu"
 msgstr "Zuluština"
+

trunk/Packages/Common/Languages/Pool.cs.po

@@ -21 +21 @@
 msgid "Unknown object for release from pool"
 msgstr "Neznýmý objekt pro uvolnění ze zásobníku"
+

trunk/Packages/Common/Languages/ResetableThread.cs.po

@@ -16 +16 @@
 msgid "WaitFor error"
 msgstr "Chyba WaitFor"
+

trunk/Packages/Common/Languages/ScaleDPI.cs.po

@@ -17 +17 @@
 msgid "Wrong DPI [%d,%d]"
 msgstr "Chybné DPI [%d,%d]"
+

trunk/Packages/Common/Languages/TestCase.cs.po

@@ -26 +26 @@
 msgid "Passed"
 msgstr "Prošlo"
+

trunk/Packages/Common/Languages/Threading.cs.po

@@ -17 +17 @@
 msgid "Current thread ID %d not found in virtual thread list."
 msgstr "Aktuální vlákno ID %d nenalezeno v seznamu virtuálních vláken."
+