Установка граничного числа элементов в массиве через Edit

[LLIALLIJIbIK]

Подскажите, как объявить массив, чтобы верхний диапазон элементов можно было ввести с клавиатуры.

[Человек_Борща]

как-то так:

var
 a:array of array of Integer;
begin
 SetLength(a,10,StrToIntDef(Edit1.Text,1));

[LLIALLIJIbIK]

Спасибо. А вот такой вопрос:
for i:=1 to 5 do begin
if Mechanism[i]>max then
max:=Mechanism[i];
end;
Что произойдет, если размерность массива будет меньше 5?

[Mad_Cat]

ничего! проверит только первые пять элементов и покажет максимум из них

[LLIALLIJIbIK]

А почему в данной ситуации ошибка Incompatible types?

if (Ordinate[2]=nil) and (Abscissa[2]=nil) then
Mass[1]:=Mpp*exp(ln((1+((36*power(Ordinate[1],2))/power(Bp,2))+((36*power(Abscissa[1],2))/power(Lp,2))))*(-1/2))
else if (Ordinate[3]=nil) and (Abscissa[3]=nil) then begin
Mass[1]:=Mpp*exp(ln((1+((36*power(Ordinate[1],2))/power(Bp,2))+((36*power(Abscissa[1],2))/power(Lp,2))))*(-1/2));
Mass[2]:=Mpp*exp(ln((1+((36*power(Ordinate[2],2))/power(Bp,2))+((36*power(Abscissa[2],2))/power(Lp,2))))*(-1/2));
end
else if (Ordinate[4]=nil) and (Abscissa[4]=nil) then begin
Mass[1]:=Mpp*exp(ln((1+((36*power(Ordinate[1],2))/power(Bp,2))+((36*power(Abscissa[1],2))/power(Lp,2))))*(-1/2));
Mass[2]:=Mpp*exp(ln((1+((36*power(Ordinate[2],2))/power(Bp,2))+((36*power(Abscissa[2],2))/power(Lp,2))))*(-1/2));
Mass[3]:=Mpp*exp(ln((1+((36*power(Ordinate[3],2))/power(Bp,2))+((36*power(Abscissa[3],2))/power(Lp,2))))*(-1/2));
end
else if (Ordinate[5]=nil) and (Abscissa[5]=nil) then begin
Mass[1]:=Mpp*exp(ln((1+((36*power(Ordinate[1],2))/power(Bp,2))+((36*power(Abscissa[1],2))/power(Lp,2))))*(-1/2));
Mass[2]:=Mpp*exp(ln((1+((36*power(Ordinate[2],2))/power(Bp,2))+((36*power(Abscissa[2],2))/power(Lp,2))))*(-1/2));
Mass[3]:=Mpp*exp(ln((1+((36*power(Ordinate[3],2))/power(Bp,2))+((36*power(Abscissa[3],2))/power(Lp,2))))*(-1/2));
Mass[4]:=Mpp*exp(ln((1+((36*power(Ordinate[4],2))/power(Bp,2))+((36*power(Abscissa[4],2))/power(Lp,2))))*(-1/2));
end
else begin
Mass[1]:=Mpp*exp(ln((1+((36*power(Ordinate[1],2))/power(Bp,2))+((36*power(Abscissa[1],2))/power(Lp,2))))*(-1/2));
Mass[2]:=Mpp*exp(ln((1+((36*power(Ordinate[2],2))/power(Bp,2))+((36*power(Abscissa[2],2))/power(Lp,2))))*(-1/2));
Mass[3]:=Mpp*exp(ln((1+((36*power(Ordinate[3],2))/power(Bp,2))+((36*power(Abscissa[3],2))/power(Lp,2))))*(-1/2));
Mass[4]:=Mpp*exp(ln((1+((36*power(Ordinate[4],2))/power(Bp,2))+((36*power(Abscissa[4],2))/power(Lp,2))))*(-1/2));
Mass[5]:=Mpp*exp(ln((1+((36*power(Ordinate[5],2))/power(Bp,2))+((36*power(Abscissa[5],2))/power(Lp,2))))*(-1/2));
end;

Или например, так тоже:

for q:=2 to 5 do begin
if (Ordinate[q]=nil) and (Abscissa[q]=nil) then begin
Mass[q-1]:=Mpp*exp(ln((1+((36*power(Ordinate[q-1],2))/power(Bp,2))+((36*power(Abscissa[q-1],2))/power(Lp,2))))*(-1/2));
break;
end
else
Continue;
end;

From Stilet: Почему код не оформляешь по правилам!?
Это последнее предупреждение - следующие подобные посты будут удалятся.

[Mad_Cat]

может вместо nil вам просто 0 проставить?

[BDA]

Mad_Cat, так вне массива не нулевые значения лежат.

И вообще, нужно самому следить за границами массива, а не пытаться проверять элементы, которые не принадлежат Вашему массиву.

[LLIALLIJIbIK]

Честно говоря я не очень понимаю, как мне замутить такую ситуацию: сейчас я не знаю сколько элементов будет в моем массиве (смотря сколько добавит пользователь), но нужно прописать, что если столько-то, то считаются такие значения. Ноль не подходит потому что значение ноль может быть введено и с ним нужно будет считать так же, как и с другими значениями. То есть если я сравниваю второй элемент с нулем то этот ноль может быть введен пользователем и тогда надо его считать либо это ноль от пустого значения массива и тогда его не надо считать. Если я не ошибаюсь, то в данном случае меня спасет nil. Но не работает.

[Человек_Борща]

Спасибо. А вот такой вопрос:
for i:=1 to 5 do begin
if Mechanism[i]>max then
max:=Mechanism[i];
end;
Что произойдет, если размерность массива будет меньше 5?

Если массив начинается с 0 и меньше 5 то будет ошибка(предел 0..4).
Если массив 0..9 то ваш цикл отработает на 1..5 элементах и забудет про 0 и 6..9 элементы.

А почему в данной ситуации ошибка Incompatible types?

Потому что массив целых чисел а у вас там явно дробные.

Честно говоря я не очень понимаю, как мне замутить такую ситуацию:

Вас спасет тип variant. О нем в гугле тонны текста. Вкратце это тип данных принимающий любые типы данных(не одновременно). Он может быть как 0, '0', и nil соответственно. В Модуле variants полно всяких полезных функций.

[eval]

Что произойдет, если размерность массива будет меньше 5?

кирдык произойдет
есть хорошие функции low и high