Array

← →
Clift © (2003-12-01 16:06) [0]

...
var
...
mas:array of integer;
...
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
n:integer;
begin
setlength(mas,1);
label1.Caption:="В массиве "+inttostr(length(mas))+" елем." ;
form1.Label1.Caption:=form1.Label1.Caption+#13+"0-> "+inttostr(mas[0]);
form1.Label1.Caption:=form1.Label1.Caption+#13+"1-> "+inttostr(mas[1]);
form1.Label1.Caption:=form1.Label1.Caption+#13+"2-> "+inttostr(mas[2]);
form1.Label1.Caption:=form1.Label1.Caption+#13+"3-> "+inttostr(mas[3]);
form1.Label1.Caption:=form1.Label1.Caption+#13+"100-> "+inttostr(mas[100]);

n:=mas[100];
form1.Label1.Caption:=form1.Label1.Caption+#13+"n= "+inttostr(mas[100]);
end;
end.
если нажать только один раз то результат такой:
0-> 0 //это понятно , а дальше...
1-> 18
2-> 1
3-> 1
100-> -521396030
n= -521396030

при каждом нажатии изменяются mas[1],mas[2],mas[3]
а вопрос такой : почему это работает? ведь длинна массива
только один елемент (setlength(mas,1))следовательно существует только
mas[0] а остальных недолжно быть.(см.n:=mas[100]-работает).
И что это за числа, откуда они?
p.s.
задачу использованя массива в программе я решил,но вопрос остался.

← →
Македонеца (2003-12-01 16:10) [1]

Интересный вопроc:)
Это действительно так

← →
Тимохов (2003-12-01 16:14) [2]

range check error включите

← →
Вованчик © (2003-12-01 16:14) [3]

> И что это за числа, откуда они?

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

← →
Тимохов (2003-12-01 16:15) [4]

Откуда числа?
Случайный мусор в памяти

← →
Clift © (2003-12-01 16:21) [5]

Тимохов (01.12.03 16:14) [2]
range check error включите

а как его включить?
ну незнаю я!

← →
Тимохов (2003-12-01 17:21) [6]

Чтите help по ключевым словам "range check error".
У меня 5 dephi - сразу нашлось.

а у меня такая фишка стабильно ав выдаёт (только своя)

Array Найти похожие ветки