Changeset 195 for trunk


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormCheck.pas

    r194 r195  
    281281          Inc(Index);
    282282        end;
    283         if (Index + 1) < Length(Text) then AcronymCharAfter := Text[Index + 1]
     283        if (Index) < Length(Text) then AcronymCharAfter := Text[Index]
    284284          else AcronymCharAfter := ' ';
    285285        State := stNone;
     
    347347        State := stAcronymUsage;
    348348        Acronym := Text[Index];
    349         if (Index - 1) >= 0 then AcronymCharBefore := Text[Index - 1]
     349        if (Index - 1) >= 1 then AcronymCharBefore := Text[Index - 1]
    350350          else AcronymCharBefore := ' ';
    351351      end;
     
    362362    and ((After = ' ') or (After = #10) or (After = #13) or (After = ',') or
    363363    (After = '.') or (After = ';') or (After = '(') or (After = ')'));
    364 
    365364end;
    366365
Note: See TracChangeset for help on using the changeset viewer.