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

Timestamp:

Mar 8, 2021, 9:23:32 PM (3 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/Packages/CevoComponents/StringTables.pas

@@ -22 +22 @@
     function Search(const Content: string; var Handle, Index: integer): boolean;
   end;
+
 
 implementation
@@ -70 +71 @@
   s: string;
 begin
-  if Index < 0 then
+  if Index < 0 then begin
     if Handle < 0 then begin
       Result := '';
@@ -86 +87 @@
       end;
       Result := S;
-    end else
-    if (Handle + Index + 1) >= Lines.Count then begin
-      Result := '';
-      Exit;
-    end else Result := Lines[Handle + Index + 1];
+    end;
+  end else
+  if (Handle + Index + 1) >= Lines.Count then begin
+    Result := '';
+    Exit;
+  end else Result := Lines[Handle + Index + 1];
   while (Result <> '') and ((Result[1] = ' ') or (Result[1] = #9)) do
     Delete(Result, 1, 1);
@@ -104 +106 @@
 begin
   Handle := GetHandle(Item);
-  if Handle >= 0 then
-    Result := LookupByHandle(Handle, Index)
-  else
-    Result := '';
-  if Result = '' then
-    if Index < 0 then
-      Result := Format('[%s]', [Item])
-    else
-      Result := Format('[%s %d]', [Item, Index])
+  if Handle >= 0 then Result := LookupByHandle(Handle, Index)
+    else Result := '';
+  if Result = '' then begin
+    if Index < 0 then Result := Format('[%s]', [Item])
+      else Result := Format('[%s %d]', [Item, Index]);
+  end;
 end;
 
@@ -153 +152 @@
     begin
       result := false;
-      exit
+      exit;
     end;
     if Copy(Lines[h + i + 1], 1, 1) = '#' then
     begin
       h := h + i + 1;
-      i := -1
+      i := -1;
     end;
     if (h >= 0) and not ((Length(Lines[h + i + 1]) > 0) and (Lines[h + i + 1][1] in ['#', ':', ';'])) and