Что за ошибка?

← →
syte_ser78 © (2004-01-21 14:23) [0]

Const
BDG2="disk";
...
...
with TCheckBox(FindComponent(DBG2 + IntToStr(i))) do
begin
Left := 10;
Top := 30+i * 25;
Parent := self;
Caption:=DriveChar;
end;
...

Ошибка выскакивает в стоке Left := 10;

← →
Игорь Шевченко © (2004-01-21 14:33) [1]

> with TCheckBox(FindComponent(DBG2 + IntToStr(i))) do

попробуй
with (FindComponent(DBG2 + IntToStr(i)) as TCheckBox) do
может, ошибка раньше выскочит ?

На будущее - уважай людей, говори какая ошибка

← →
MBo © (2004-01-21 14:40) [2]

смущает, что parent назначается позже Left...

← →
syte_ser78 © (2004-01-21 14:42) [3]

Извиняюсь, ошибка следующая:
Project Project1.exe raised exection class EAccessViolation with message
"Acess violation at address 0042F270 in module "Project1.exe" Read of adress 00000048. Process stoped. Use Step or Run to continue.
с with (FindComponent(DBG2 + IntToStr(i)) as TCheckBox) do ошибка выскакивает там же.

← →
syte_ser78 © (2004-01-21 14:43) [4]

← →
Игорь Шевченко © (2004-01-21 14:45) [5]

syte_ser78 © (21.01.04 14:43)

FindComponent не нашел нужного компонента

> смущает, что parent назначается позже Left...

Поставил Parent первым, теперь ошибка на нем выскакивает.

> FindComponent не нашел нужного компонента

Спасибо. Все невнимательность. Скопировал кусок кода со старой программы, а строку именно создания чеков не добавил :(

Что за ошибка? Найти похожие ветки