Changeset 5 for trunk/UAcronym.pas

Timestamp:

Apr 21, 2016, 9:39:44 AM (9 years ago)

Author:

chronos

Message:

• Added: Acronyms in list are sorted alphabetically.
• Added: Missing acronym form.
• Fixed: Synapse to build under Win64 target.

File:

• trunk/UAcronym.pas (modified) (1 diff)

trunk/UAcronym.pas

@@ -88 +88 @@
   end;
 
+function AcronymComparer(Item1, Item2: Pointer): Integer;
+
 implementation
+
+function AcronymComparer(Item1, Item2: Pointer): Integer;
+begin
+  Result := CompareStr(TAcronym(Item1).Name, TAcronym(Item2).Name);
+end;
 
 { TAcronymMeanings }