|
@@ -613,7 +613,7 @@ function CompareValue ( const A, B : Extended; delta : Extended = 0.0 ) : TValue
|
|
function RandomFrom(const AValues: array of Double): Double; overload;
|
|
function RandomFrom(const AValues: array of Double): Double; overload;
|
|
function RandomFrom(const AValues: array of Integer): Integer; overload;
|
|
function RandomFrom(const AValues: array of Integer): Integer; overload;
|
|
function RandomFrom(const AValues: array of Int64): Int64; overload;
|
|
function RandomFrom(const AValues: array of Int64): Int64; overload;
|
|
-{$if FPC_FULLVERSION >=301010}
|
|
|
|
|
|
+{$if FPC_FULLVERSION >=30101}
|
|
generic function RandomFrom<T>(const AValues:array of T):T;
|
|
generic function RandomFrom<T>(const AValues:array of T):T;
|
|
{$endif}
|
|
{$endif}
|
|
|
|
|
|
@@ -2604,7 +2604,7 @@ begin
|
|
result:=AValues[random(High(AValues)+1)];
|
|
result:=AValues[random(High(AValues)+1)];
|
|
end;
|
|
end;
|
|
|
|
|
|
-{$if FPC_FULLVERSION >=301010}
|
|
|
|
|
|
+{$if FPC_FULLVERSION >=30101}
|
|
generic function RandomFrom<T>(const AValues:array of T):T;
|
|
generic function RandomFrom<T>(const AValues:array of T):T;
|
|
begin
|
|
begin
|
|
result:=AValues[random(High(AValues)+1)];
|
|
result:=AValues[random(High(AValues)+1)];
|