[Lenka]

вот кусочки из текста программ с которым у меня проблемы
Создать массив-вариант из целых чисел. Размерность определяется через два SpiEdit'а. Элементы массива вводятся через Memo.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i,j,n1,n2:integer;
a:variant;
begin
n1:=SpinEdit1.Value;
n2:=SpinEdit2.Value;
a:=VararrayCreate([n1,n2],varinteger);
for i:=vararrayLowBound(a,n1) to VararrayHighBound(a,n2) do
 Memo1.Lines[i]:=a[i];

что я делаю не так?

Создать числовой массив-вариант с индексацией от N1 до N2, элементами которого будут являться строки в Memo1.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var n1,n2,i:integer;
a:variant;
begin
n1:=SpinEdit1.Value;
n2:=SpinEdit2.Value;
a:=VararrayCreate([n1,n2],varstring);
for i:=VararrayLowBound(a,1) to VararrayHighBound(a,1) do
 a[i]:=Memo1.Lines[i]
end;
 Может посоветуете какую нибудь литературу именно по массивам вариантам!!!
end.

Админ: Пользуемся тегами для оформления кода!

Ошибка Error creating varian or safe array