[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

[NumLock]

Код:

var
  v: Variant;
  i: Integer;
  n1, n2: Integer;
begin
  n1:=2;
  n2:=4;
  v:=VarArrayCreate([n1, n2], varInteger);
  v[2]:=13;
  v[3]:=11;
  v[4]:=1973;
  for i:=VarArrayLowBound(v, 1) to VarArrayHighBound(v, 1) do
    Memo1.Lines.Add(IntToStr(v[i]));
end;

SpinEdit1.Value:=n1;
SpinEdit2.Value:=n2;

не наоборот?

[Lenka]

Да наоборот спасибо. А как добавить элементы из мемо в массив?