Changeset 195 for trunk/Forms/UFormCheck.pas

Timestamp:

Jul 23, 2018, 12:30:01 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Wrong index of character checked after acronym usage.
• Fixed: Error if acronym started at position 1.

File:

• trunk/Forms/UFormCheck.pas (modified) (3 diffs)

trunk/Forms/UFormCheck.pas

@@ -281 +281 @@
           Inc(Index);
         end;
-        if (Index + 1) < Length(Text) then AcronymCharAfter := Text[Index + 1]
+        if (Index) < Length(Text) then AcronymCharAfter := Text[Index]
           else AcronymCharAfter := ' ';
         State := stNone;
@@ -347 +347 @@
         State := stAcronymUsage;
         Acronym := Text[Index];
-        if (Index - 1) >= 0 then AcronymCharBefore := Text[Index - 1]
+        if (Index - 1) >= 1 then AcronymCharBefore := Text[Index - 1]
           else AcronymCharBefore := ' ';
       end;
@@ -362 +362 @@
     and ((After = ' ') or (After = #10) or (After = #13) or (After = ',') or
     (After = '.') or (After = ';') or (After = '(') or (After = ')'));
-
 end;