Changeset 86 for trunk/UTrack.pas

Timestamp:

Jun 21, 2022, 5:04:48 PM (23 months ago)

Author:

chronos

Message:

• Fixed: Calculation of tracks end.
• Modified: Updated Common package to version 0.10.
• Modified: Build with Lazarus 2.2.2.
• Modified: Used Generics.Collections instead of fgl for generic lists.

File:

• trunk/UTrack.pas (modified) (3 diffs)

trunk/UTrack.pas

@@ -1 +1 @@
 unit UTrack;
-
-{$mode delphi}
 
 interface
 
 uses
-  Classes, SysUtils, fgl;
+  Classes, SysUtils, Generics.Collections;
 
 type
@@ -28 +26 @@
   { TTrackPoints }
 
-  TTrackPoints = class(TFPGObjectList<TTrackPoint>)
+  TTrackPoints = class(TObjectList<TTrackPoint>)
   end;
 
@@ -42 +40 @@
   { TTrackLinks }
 
-  TTrackLinks = class(TFPGObjectList<TTrackLink>)
+  TTrackLinks = class(TObjectList<TTrackLink>)
     function SearchPoints(Point1, Point2: TTrackPoint): TTrackLink;
   end;