Помогите с ошибкой

← →
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 шт) закрашивается.

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