Changeset 286 for trunk/Packages/CevoComponents/StringTables.pas

Timestamp:

Feb 23, 2021, 10:47:47 AM (4 years ago)

Author:

chronos

Message:

• Modified: Optimized TurnToYear function to eliminate unnecessary loop.

File:

• trunk/Packages/CevoComponents/StringTables.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/StringTables.pas

@@ -19 +19 @@
     function GetHandle(const Item: string): integer;
     function LookupByHandle(Handle: integer; Index: integer = -1): string;
-    function Lookup(const Item: string; Index: integer = -1): string;
+    function Lookup(const Item: string; Index: Integer = -1): string;
     function Search(const Content: string; var Handle, Index: integer): boolean;
   end;
@@ -99 +99 @@
 end;
 
-function TStringTable.Lookup(const Item: string; Index: integer): string;
+function TStringTable.Lookup(const Item: string; Index: Integer): string;
 var
-  Handle: integer;
+  Handle: Integer;
 begin
   Handle := GetHandle(Item);
   if Handle >= 0 then
-    result := LookupByHandle(Handle, Index)
+    Result := LookupByHandle(Handle, Index)
   else
-    result := '';
-  if result = '' then
+    Result := '';
+  if Result = '' then
     if Index < 0 then
-      result := Format('[%s]', [Item])
+      Result := Format('[%s]', [Item])
     else
-      result := Format('[%s %d]', [Item, Index])
+      Result := Format('[%s %d]', [Item, Index])
 end;