Получить значение вариантного массива
Создал вариантный массив как показано ниже.
(честно сказать еще плохо понимаю эти массивы)
Код:
int BoundsA[2]={0,2};
FirstPoint = VarArrayCreate(BoundsA,1,varDouble);
FirstPoint.PutElement(100.0,0); // значение X
FirstPoint.PutElement(200.0,1); // значение Y
FirstPoint.PutElement(0.0,2); // значение Z
FirstPoint = VarArrayCreate(BoundsA,1,varDouble);
FirstPoint.PutElement(100.0,0); // значение X
FirstPoint.PutElement(200.0,1); // значение Y
FirstPoint.PutElement(0.0,2); // значение Z
Следующая строка вылетает с ошибкой, хотя в Delphi подобная конструкция проходит
double Y=FirstPoint[2];
Спасибо и сильно не пинайте.
Ваше замечание правильное, но даже FirstPoint[0] также не срабатывает.
Честно сказать с трудом понимаю эти массивы.
Я даже при нажатии контрола и массива в режиме отладки не могу найти в таблице сохраненные значения.
а какие ошибки выдает?
Так попробуйте:)
Код:
Double Y = FirstPoint.GetElement(2);
Код:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant array;
int bounds[2] = {0, 2};
array = VarArrayCreate(bounds, 1, varDouble);
array.PutElement(100.0,0);
array.PutElement(200.0,1);
array.PutElement(0.0,2);
Label1->Caption = array.GetElement(2);
Label2->Caption = array.GetElement(1);
Label3->Caption = array.GetElement(0);
}
{
Variant array;
int bounds[2] = {0, 2};
array = VarArrayCreate(bounds, 1, varDouble);
array.PutElement(100.0,0);
array.PutElement(200.0,1);
array.PutElement(0.0,2);
Label1->Caption = array.GetElement(2);
Label2->Caption = array.GetElement(1);
Label3->Caption = array.GetElement(0);
}