Changeset 137 for trunk/Packages/Common/ULanguages.pas

Timestamp:

Sep 9, 2022, 1:16:58 AM (2 years ago)

Author:

chronos

Message:

• Added: Robots page.
• Modified: Canonical URL for webcams.
• Modified: Removed compiler mode delphi as it is already set in project.
• Modified: Updated Common package.
• Modified: Use Generics.Collections instead of fgl.

File:

• trunk/Packages/Common/ULanguages.pas (modified) (2 diffs)

trunk/Packages/Common/ULanguages.pas

@@ -1 +1 @@
 unit ULanguages;
 
-{$mode delphi}{$H+}
-
 interface
 
 uses
-  Classes, SysUtils, fgl;
+  Classes, SysUtils, Generics.Collections;
 
 type
@@ -17 +15 @@
   { TLanguages }
 
-  TLanguages = class(TFPGObjectList<TLanguage>)
+  TLanguages = class(TObjectList<TLanguage>)
     function SearchByCode(ACode: string): TLanguage;
     procedure AddNew(Code: string; Name: string);