| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите с ошибкой [D6, Win2k]
jenbbond © (2002-05-27 12:33:00)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)"
jenbbond (2002-05-27 13:09:00) [1]Из базы берется значение ячейки и номер ячейки, это значение проверяется на соотвестстви(от этого зависит цвет), и потом соответствующий номер компонента(их 20 шт) закрашивается.
Victorbur (2002-05-27 12:37:00) [2]Не пойму, что ты пытаешься сделать?
TBitBtnWithColor - Это что за компонент
jonik pegas (2002-05-27 12:34:00) [3]>if Components[p] is TBitBtnWithColor then
а p то ничего и не присвоено
| |
