В один массив несколько "параметров" (границ массива)

[FleXik]

Всем привет, как можно в один массив записать несколько "параметров"? Мне нужно именно в один массив т.к потом переменная маcсива подставляется в запрос и по другому никак, мне нужно что-то типа этого:

плохой пример....

Знаю что код кривой и так делать нельзя, но более подробно другим способом я думаю обьяснить нельзя.

[eval]

да тут совсем не понятно к чему этот массив..
проще рассказать что в итоге надо, кривой код не помошник

[FleXik]

eval, так я и написал, мне нужно задать несколько границ массива для одной и той же переменной, я специально выше дал пример и выше видно что числа в границах всегда разные

[BDA]

stackoverflow подсказывает:

type
  TIntArray = array of integer;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyArr: TIntArray;
begin
  MyArr := TIntArray.Create(10, 20, 30, 40);
end;

[FleXik]

BDA, TIntArray при Create не вызывается, хотя в type задается и в var тоже...

[Stilet]

const a:Array[0..4,1..7] of integer=( (0,0, 0, 0, 0,0,0)
 (1, 7, 4, 5, 8,0,0),(9, 3, 2, 6, 1, 7,0),(2, 8, 1, 4, 9, 5, 3),(5, 1, 3, 9, 7, 2, 4)
);
var k:integer;
begin
if Form1.sCheckBox1.Checked=True then k:=1 else
if Form1.sCheckBox2.Checked=True then k:=2 else
if Form1.sCheckBox3.Checked=True then k:=3 else
if Form1.sCheckBox4.Checked=True then k:=4 else k:=0;

IdHTTP1.Get('http://site.ru/?p='+IntToStr(a[k][Form1.sComboBox3.ItemIndex]));
end;

Годится?

BDA

И это что работает? О_о

[BDA]

Честно говоря, сам не проверял. http://stackoverflow.com/questions/6...-delphi-pascal - ответ помечен принятым, вот и доверился
UPD Проверил на Delphi 2010 - работает.

[phomm]

Я бы советовал читать xyz до просветления
Да и вообще читать, в т.ч. GunSmoker'a , а то что ни тема, то шедевр и погибель.

[alextrof94]

Как я понял, в зависимости от выбранного пункта в первом комбобоксе тебе надо выводить определенное количество строк во втором... Так тут 1-мерный числовой массив, вроде (5, 3, 7, 1, 2).

var
 myStrings: array [0..6] of string;
 myArray: array [0..4] of integer;

//процедура создания формы
begin
//массив строк
 myStrings[0]:='раз';
 myStrings[1]:='два';
 myStrings[2]:='три';
 myStrings[3]:='четыре';
 myStrings[4]:='пять';
 myStrings[5]:='шесть';
 myStrings[6]:='семь';
//массив количеств строк
 myArray[0]:=5;
 myArray[1]:=3;
 myArray[2]:=7;
 myArray[3]:=1;
 myArray[4]:=2;
end;

//процедура выбора пункта из комбобокса1
procedure TForm1.sComboBox1Select(Sender: TObject);
var 
 i: integer;
begin
Combobox2.Clear;
 for i:=0 to myArray[Combobox1.itemindex]-1 do
  Combobox2.Items.Add(myStrings[i]); 
end;

[FleXik]

Как я понял, в зависимости от выбранного пункта в первом комбобоксе тебе надо выводить определенное количество строк во втором... Так тут 1-мерный числовой массив, вроде (5, 3, 7, 1, 2).

верно, но прикол в том что у меня несколько пунктов в первом ComboBox и при выборе разных пунктов в ComboBox1 пункты в ComboBox2 меняются, и их разное количество, и вот для них мне нужны задать определенные числа, числа так же разные, и все это должно быть в одной переменной массива (т.к у меня порядка 100 разных вариантов чисел, не плодить же 100 переменных массива) потому что в последующем эта переменная подставляется в запрос.