Когда я пытаюсь преобразовать Array of Integer
в TArray<Integer>
в процедуре, я получаю сообщение об ошибке E2089 Invalid typecast
. Как я могу ввести его так, чтобы он работал?
program Project11;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
System.Math;
type
TArrayManager<T> = record
class procedure Shuffle(var A: TArray<T>); static;
end;
class procedure TArrayManager<T>.Shuffle(var A: TArray<T>);
var
I, J: Integer;
Temp: T;
begin
for I := High(A) downto 1 do
begin
J := RandomRange(0, I);
Temp := A[I];
A[I] := A[J];
A[J] := Temp;
end;
end;
procedure Test(var A: Array of Integer);
begin
TArrayManager<Integer>.Shuffle(TArray<Integer>(A)); // Invalid typecast????
end;
var
A: Array of Integer;
begin
// TArrayManager<Integer>.Shuffle(TArray<Integer>(A)); // Works
Test(A);
end.