Changeset 206 for trunk/Forms

Timestamp:

Jun 19, 2019, 5:31:24 PM (5 years ago)

Author:

chronos

Message:

• Modified: Allow to have acronym and its meaning on different lines in acronyms summary.

File:

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

trunk/Forms/UFormCheck.pas

@@ -318 +318 @@
   Acronym: string;
   Meaning: string;
+  Index: Integer;
 begin
   AcronymDbSummary.Acronyms.Clear;
@@ -325 +326 @@
     AcronymSectionEnd := SearchLine(MemoDocument.Lines, EditSummaryEnd.Text, AcronymSectionStart + 1);
     if AcronymSectionEnd <> -1 then begin
+      Acronym := '';
       for I := AcronymSectionStart + 1 to AcronymSectionEnd - 1 do begin
         Line := Trim(MemoDocument.Lines[I]);
         Line := StringReplace(Line, #9, ' ', [rfReplaceAll]);
         if Line <> '' then begin
-          if Pos(' ', Line) > 0 then begin
-            Acronym := Copy(Line, 1, Pos(' ', Line) - 1);
-            if IsUppercaseAlpha(Acronym) then begin
-              Meaning := Trim(Copy(Line, Pos(' ', Line) + 1, Length(Line)));
-              if Assigned(AcronymDbSummary.SearchAcronym(Acronym, Meaning)) then
-                ReportItems.AddNew(Format(SDuplicateAcronymSummary, [Acronym, Meaning]), Point(0, I), rtWarning)
-                else AcronymDbSummary.AddAcronym(Acronym, Meaning);
+          if (Acronym <> '') and IsUppercaseAlpha(Acronym) then begin
+            Meaning := Line;
+          end else begin
+            Index := Pos(' ', Line);
+            if Index > 0 then begin
+              Acronym := Copy(Line, 1, Index - 1);
+              Meaning := Trim(Copy(Line, Index + 1, Length(Line)));
+            end else begin
+              if Acronym = '' then Acronym := Line
+                else Meaning := Line;
             end;
+          end;
+          if (Acronym <> '') and IsUppercaseAlpha(Acronym) and (Meaning <> '') then begin
+            if Assigned(AcronymDbSummary.SearchAcronym(Acronym, Meaning)) then
+              ReportItems.AddNew(Format(SDuplicateAcronymSummary, [Acronym, Meaning]), Point(0, I), rtWarning)
+              else AcronymDbSummary.AddAcronym(Acronym, Meaning);
+            Acronym := '';
+            Meaning := '';
           end;
         end;