Скачать: CL | DM;

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

← →
Галинка ©   (2004-02-03 15:54) [40]

Для Анатолия Подгорецкого.
Так вот по поводу Вашего алгоритма.

procedure TForm1.Button1Click(Sender: TObject);
begin
NumbClick:=NumbClick+1;
SetLength(Form1.TekDArray,NumbClick);
TekDArray[NumbClick]:=NumbClick;
Form1.Edit1.Text:=InTToStr(TekDArray[NumbClick]);
end;

Все равно не пашет. Может из-за самого компилятора?

---

← →
Fay ©   (2004-02-03 16:04) [41]

Нет. это в ДНК.
"NumbClick:=NumbClick+1" Должно быть в конце, а не в начале

---

← →
Fay ©   (2004-02-03 16:07) [42]

procedure TForm1.Button1Click(Sender: TObject);
begin
Inc(NumbClick);
SetLength(Form1.TekDArray,NumbClick);
TekDArray[NumbClick-1]:= NumbClick;
Form1.Edit1.Text := IntToStr(TekDArray[NumbClick-1]);
end;

---

← →
Anatoly Podgoretsky ©   (2004-02-03 16:31) [43]

SetLength( Form1.TekDArray,NumbClick);
SetLength(TekDArray,NumbClick);

---

← →
Anatoly Podgoretsky ©   (2004-02-03 16:36) [44]

4 ошибки

procedure TForm1.Button1Click(Sender: TObject);
begin
NumbClick:=NumbClick+1;
SetLength( Form1.TekDArray,NumbClick);
TekDArray[NumbClick]:=NumbClick;
Form1.Edit1.Text:=InTToStr(TekDArray[NumbClick]);
end;

Вот исправленая процедура
procedure TForm1.Button1Click(Sender: TObject);
begin
NumbClick := NumbClick + 1;
SetLength(TekDArray, NumbClick);
TekDArray[NumbClick - 1] := NumbClick;
Edit1.Text := InTToStr(TekDArray[NumbClick - 1]);
end;


Динамически массивы идут с 0 до Length - 1

---

← →
Romkin ©   (2004-02-03 18:31) [45]

Это в ДНК... 2Anatoly Podgoretsky Удивляюсь твоему терпению...
Мое кончилось...
http://delphimaster.net/view/8-1075800558/

---

← →
Галинка ©   (2004-02-04 07:18) [46]

Для Анатолия Подгорецкого.

А почему нельзя через Form1 обращаться к массиву? Он же в публиках этой формы?

---

← →
Anatoly Podgoretsky ©   (2004-02-04 07:49) [47]

Потому что их может быть несколько, один глобальный и один локальный и такая ошибка часто существует, да и форм этого класса может быть несколько. Нужды же обращаться внутри метода к самой себе совсем нет. Такую ошибку часто допускаю и с трудом ищит почему не работает, но это не значит, что у тебя неверно, это больше потенциальня ошибка, но к сожалению реальная. Вот неверные индексы массива, это уже не потенциальная, а самая не наесть реальная, обращение за пределы массива и у тебя явно выключена в настройка проверка выхода за пределы диапазона.

---

Страницы: 1 2 вся ветка

Скачать: CL | DM;



Память: 0.53 MB
Время: 0.024 c