Changeset 2 for trunk/UFormImport.pas

Timestamp:

Apr 20, 2016, 6:29:54 PM (8 years ago)

Author:

chronos

Message:

• Added: Support for loading mediawiki acronyms placed on one line.
• Fixed: Do not try open non existent file.

Location:

trunk

Files:

• . (modified) (1 prop)
• UFormImport.pas (modified) (1 diff)

trunk/UFormImport.pas

@@ -68 +68 @@
     Line := Trim(Memo1.Lines[I]);
     if Copy(Line, 1, 1) = ';' then begin
-      AcronymName := Trim(Copy(Line, 2, Length(Line)));
+      if Pos(':', Line) > 0 then begin
+        AcronymName := Trim(Copy(Line, 2, Pos(':', Line) - 2));
+        Line := Copy(Line, Pos(':', Line), Length(Line));
+      end else AcronymName := Trim(Copy(Line, 2, Length(Line)));
     end;
     if Copy(Line, 1, 1) = ':' then begin