VarArray

Lobanovv

почему FastScript не выполняет следующие скрипты

var
ar: Variant;
begin
ar := VarArrayCreate([0, 1, 2, 3], varInteger);
ar[0] := 1;
ar[1] := 2;
ar[2] := 1;
ar[3] := 2;
ShowMessage(ar[0]);
ShowMessage(ar[1]);
end.

var
ar: Variant;
begin
ar := VarArrayCreate([0, 1, 2], varInteger);
ar[0] := 1;
ar[1] := 2;
ar[2] := 1;
ShowMessage(ar[0]);
ShowMessage(ar[1]);
end.

При выполнении каждого выдается ошибка.

-=Serg=-

Ты хоть скажи какая ошибка.

Lobanovv

При выполнении скрипта
var
ar: Variant;
begin
ar := VarArrayCreate([0, 1, 2, 3], varInteger);
ar[0] := 1;
ar[1] := 2;
ar[2] := 1;
ar[3] := 2;
ShowMessage(ar[0]);
ShowMessage(ar[1]);
end.
Ошибка преобразования типов Invalid variant type conversion при присвоение значения первому элементу массива

При выполнении скрипта
var
ar: Variant;
begin
ar := VarArrayCreate([0, 1, 2], varInteger);
ar[0] := 1;
ar[1] := 2;
ar[2] := 1;
ShowMessage(ar[0]);
ShowMessage(ar[1]);
end.
Ошибка создания массива Error creating variant array

У меня FastScript версии 1.7

awex

ar := VarArrayCreate([0, 1, 2, 3], varInteger);
>>>
ar := VarArrayCreate([0, 3], varInteger);

Lobanovv

Большое спасибо.