Форум: "Основная";
Текущий архив: 2004.02.13;
Скачать: [xml.tar.bz2];
Вниз
Как работать с указателями на динамические массивы. Найти похожие ветки
← →
Галинка (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 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.13;
Скачать: [xml.tar.bz2];
Память: 0.53 MB
Время: 0.012 c