Changeset 231 for trunk/Acronym.pas

Timestamp:

Jan 25, 2025, 12:11:20 PM (8 days ago)

Author:

chronos

Message:

• Fixed: Error on new acronym cateogry addition.
• Added: New import source from Wikipedia aviation acronyms.

File:

• trunk/Acronym.pas (modified) (4 diffs)

trunk/Acronym.pas

@@ -276 +276 @@
   SSkip = 'Skip';
   SRemoveOnStart = 'Remove on start';
+  SCleanSet = 'Clean set';
   SUnsupportedAuthMethod = 'Unsupported HTTP authorization method';
   SFileNotFound = 'File %s not found';
@@ -291 +292 @@
   ImportPatternFlagString[ipfSkip] := SSkip;
   ImportPatternFlagString[ipfRemove] := SRemoveOnStart;
+  ImportPatternFlagString[ipfCleanSet] := SCleanSet;
 end;
 
@@ -560 +562 @@
               P1 := Pos(StartString, S);
               if P1 > 0 then begin
-                P2 := Pos(TImportPattern(Format.ItemPatterns[(I + 1) mod
-                  Format.ItemPatterns.Count]).StartString, S);
+                P2 := Pos(Format.ItemPatterns[(I + 1) mod
+                  Format.ItemPatterns.Count].StartString, S);
                 if (P2 > 0) and (P1 < P2) then Continue;
               end;
@@ -1383 +1385 @@
   Result := '';
   for I := 0 to Count - 1 do
-    Result := Result + Items[I].Name + ',';
-  System.Delete(Result, Length(Result), 1);
+    Result := Result + Items[I].Name + ', ';
+  System.Delete(Result, Length(Result) - 1, 2);
 end;