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

Помогите с ошибкой   Найти похожие ветки 

← →
jenbbond   (2002-05-27 12:33) [0]

procedure TMonForm.BitBtnWithColor20Click(Sender: TObject);
var x,n,p: integer;
begin
n:=MainDataModule.IBTablePlace.FieldByName("zanyto").AsInteger;
x:=MainDataModule.IBTablePlace.FieldByName("number").AsInteger;
if Components[p] is TBitBtnWithColor then
begin
if n=0 then
TBitBtnWithColor(Components[0]).Color:=clRed;
if n=1 then
TBitBtnWithColor(Components[1]).Color:=clGreen;
end;


end;
Ошибка
raised exception class EListError with message "List index out of bounds(1243448)"

---

← →
jonik pegas ©   (2002-05-27 12:34) [1]

>if Components[p] is TBitBtnWithColor then
а p то ничего и не присвоено

---

← →
Victorbur ©   (2002-05-27 12:37) [2]

Не пойму, что ты пытаешься сделать?
TBitBtnWithColor - Это что за компонент

---

← →
jenbbond   (2002-05-27 13:09) [3]

Из базы берется значение ячейки и номер ячейки, это значение проверяется на соотвестстви(от этого зависит цвет), и потом соответствующий номер компонента(их 20 шт) закрашивается.

---

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

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



Память: 0.45 MB
Время: 0.009 c