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

← →
Галинка © (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/

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

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

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

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