Форум: "Основная";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];
ВнизПомогите с ошибкой Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c