Changeset 128 for trunk/Components/StringTables.pas

Timestamp:

May 1, 2018, 3:15:03 PM (6 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.
• Modified: Formatted ScreenTools unit.
• Modified: Base fonts loading split to separate function.

File:

• trunk/Components/StringTables.pas (modified) (1 diff)

trunk/Components/StringTables.pas

@@ -46 +46 @@
 function TStringTable.LoadFromFile(const FileName: String): boolean;
 begin
-  Lines.LoadFromFile(FileName);
+  Result := True;
+  Lines.Clear;
+  try
+    Lines.LoadFromFile(FileName);
+  except
+    Result := False;
+  end;
 end;