Removed fgl references
This commit is contained in:
parent
fb3f41a6af
commit
571019d604
|
@ -22,7 +22,7 @@ unit UGearRatios;
|
|||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, fgl, USolver;
|
||||
Classes, SysUtils, Generics.Collections, USolver;
|
||||
|
||||
const
|
||||
CDigitChars = ['0'..'9'];
|
||||
|
@ -45,7 +45,7 @@ type
|
|||
|
||||
{ TGearCandidates }
|
||||
|
||||
TGearCandidates = specialize TFPGObjectList<TGearCandidate>;
|
||||
TGearCandidates = specialize TObjectList<TGearCandidate>;
|
||||
|
||||
{ TGearCandidateTracker }
|
||||
|
||||
|
|
|
@ -23,7 +23,7 @@ unit UGiveSeedFertilizer;
|
|||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, fgl, Math, USolver;
|
||||
Classes, SysUtils, Generics.Collections, Math, USolver;
|
||||
|
||||
type
|
||||
|
||||
|
@ -36,7 +36,7 @@ type
|
|||
class operator = (Left, Right : TValueRange): Boolean;
|
||||
end;
|
||||
|
||||
TValueRanges = specialize TFPGList<TValueRange>;
|
||||
TValueRanges = specialize TList<TValueRange>;
|
||||
|
||||
{ TAlmanacMapRange }
|
||||
|
||||
|
|
|
@ -22,7 +22,7 @@ unit UScratchcards;
|
|||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, fgl, USolver;
|
||||
Classes, SysUtils, Generics.Collections, USolver;
|
||||
|
||||
type
|
||||
|
||||
|
@ -30,7 +30,7 @@ type
|
|||
|
||||
TScratchcards = class(TSolver)
|
||||
private
|
||||
FCardCopies: specialize TFPGList<Integer>;
|
||||
FCardCopies: specialize TList<Integer>;
|
||||
function GetNumber(const AString: string; const AIndex: Integer): Integer;
|
||||
public
|
||||
constructor Create;
|
||||
|
@ -53,7 +53,7 @@ end;
|
|||
|
||||
constructor TScratchcards.Create;
|
||||
begin
|
||||
FCardCopies := specialize TFPGList<Integer>.Create;
|
||||
FCardCopies := specialize TList<Integer>.Create;
|
||||
end;
|
||||
|
||||
destructor TScratchcards.Destroy;
|
||||
|
|
|
@ -22,7 +22,7 @@ unit UWaitForIt;
|
|||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, fgl, Math, USolver;
|
||||
Classes, SysUtils, Generics.Collections, Math, USolver;
|
||||
|
||||
type
|
||||
|
||||
|
@ -30,7 +30,7 @@ type
|
|||
|
||||
TWaitForIt = class(TSolver)
|
||||
private
|
||||
FTimes, FDistances: specialize TFPGList<Cardinal>;
|
||||
FTimes, FDistances: specialize TList<Cardinal>;
|
||||
FLongTime, FLongDistance: UInt64;
|
||||
function CalcRange(const ATime, ADistance: UInt64): Cardinal;
|
||||
public
|
||||
|
@ -60,8 +60,8 @@ end;
|
|||
|
||||
constructor TWaitForIt.Create;
|
||||
begin
|
||||
FTimes := specialize TFPGList<Cardinal>.Create;
|
||||
FDistances := specialize TFPGList<Cardinal>.Create;
|
||||
FTimes := specialize TList<Cardinal>.Create;
|
||||
FDistances := specialize TList<Cardinal>.Create;
|
||||
end;
|
||||
|
||||
destructor TWaitForIt.Destroy;
|
||||
|
@ -74,7 +74,7 @@ end;
|
|||
procedure TWaitForIt.ProcessDataLine(const ALine: string);
|
||||
var
|
||||
split: TStringArray;
|
||||
list: specialize TFPGList<Cardinal>;
|
||||
list: specialize TList<Cardinal>;
|
||||
value: PUInt64;
|
||||
i: Integer;
|
||||
cleaned: string;
|
||||
|
|
Loading…
Reference in New Issue