Changeset 173 for trunk/Packages/Common

Timestamp:

Jun 15, 2024, 11:02:39 AM (5 months ago)

Author:

chronos

Message:

• Modified: TNameDetails class moved into separate file.

Location:

trunk/Packages/Common

Files:

• Common.pas (modified) (2 diffs)
• 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/FormAbout.pot (modified) (1 diff)
• Languages/JobProgressView.cs.po (modified) (1 diff)
• Languages/Languages.cs.po (modified) (1 diff)
• Languages/Languages.pot (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)

trunk/Packages/Common/Common.pas

@@ -53 +53 @@
 function ComputerName: string;
 procedure DeleteFiles(APath, AFileSpec: string);
+function EndsWith(Text, What: string): Boolean;
 function Explode(Separator: Char; Data: string): TStringArray;
 procedure ExecuteProgram(Executable: string; Parameters: array of string);
@@ -87 +88 @@
 procedure SearchFiles(AList: TStrings; Dir: string;
   FilterMethod: TFilterMethod = nil; FileNameMethod: TFileNameMethod = nil);
+procedure SortStrings(Strings: TStrings);
 function SplitString(var Text: string; Count: Word): string;
 function StripTags(const S: string): string;
+function StartsWith(Text, What: string): Boolean;
 function TryHexToInt(Data: string; out Value: Integer): Boolean;
 function TryBinToInt(Data: string; out Value: Integer): Boolean;
-procedure SortStrings(Strings: TStrings);
 
 
 implementation
+
+function StartsWith(Text, What: string): Boolean;
+begin
+  Result := Copy(Text, 1, Length(Text)) = What;
+end;
+
+function EndsWith(Text, What: string): Boolean;
+begin
+  Result := Copy(Text, Length(Text) - Length(What) + 1, MaxInt) = What;
+end;
 
 function BinToInt(BinStr : string) : Int64;

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

@@ -27 +27 @@
 msgstr "Verze"
 
-#: tformabout.caption
-msgid "About"
-msgstr "O aplikaci"

trunk/Packages/Common/Languages/FormAbout.pot

@@ -14 +14 @@
 msgstr ""
 
-#: tformabout.caption
-msgid "About"
-msgstr ""
-

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

@@ -977 +977 @@
 msgstr "Čínština"
 
+#: languages.slang_zh_hans
+msgid "Simplified Chinese"
+msgstr ""
+
+#: languages.slang_zh_hant
+msgid "Traditional Chinese"
+msgstr ""
+
 #: languages.slang_zu
 msgctxt "languages.slang_zu"
 msgid "Zulu"
 msgstr "Zuluština"
+

trunk/Packages/Common/Languages/Languages.pot

@@ -776 +776 @@
 msgstr ""
 
+#: languages.slang_zh_hans
+msgid "Simplified Chinese"
+msgstr ""
+
+#: languages.slang_zh_hant
+msgid "Traditional Chinese"
+msgstr ""
+
 #: languages.slang_zu
 msgid "Zulu"

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."
+