Changeset 45 for trunk/UAcronym.pas

Timestamp:

Jul 15, 2016, 12:38:46 AM (8 years ago)

Author:

chronos

Message:

• Modified: More translated strings.

File:

• trunk/UAcronym.pas (modified) (2 diffs)

trunk/UAcronym.pas

@@ -225 +225 @@
 function AcronymComparer(Item1, Item2: Pointer): Integer;
 
-const
-  ImportVariableString: array [TImportVariable] of string = ('None', 'Acronym',
-    'Meaning', 'Description');
-  ImportPatternFlagString: array [TImportPatternFlag] of string = ('None', 'New item',
-    'Skip');
-
+var
+  ImportVariableString: array [TImportVariable] of string;
+  ImportPatternFlagString: array [TImportPatternFlag] of string;
+
+procedure Translate;
 
 implementation
@@ -236 +235 @@
 resourcestring
   SWrongFileFormat = 'Wrong file format';
-
+  SDescription = 'Description';
+  SMeaning = 'Meaning';
+  SAcronym = 'Acronym';
+  SNone = 'None';
+  SNewItem = 'New item';
+  SSkip = 'Skip';
+
+
+procedure Translate;
+begin
+  ImportVariableString[ivAcronym] := SAcronym;
+  ImportVariableString[ivNone] := SNone;
+  ImportVariableString[ivMeaning] := SMeaning;
+  ImportVariableString[ivDescription] := SDescription;
+  ImportPatternFlagString[ipfNone] := SNone;
+  ImportPatternFlagString[ipfNewItem] := SNewItem;
+  ImportPatternFlagString[ipfSkip] := SSkip;
+end;
 
 function AcronymComparer(Item1, Item2: Pointer): Integer;