вот кусочки из текста программ с которым у меня проблемы
Создать массив-вариант из целых чисел. Размерность определяется через два 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