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

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

← →
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]

Извиняюсь, ошибка следующая:
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.

---

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

syte_ser78 © (21.01.04 14:43)

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

---

← →
syte_ser78 ©   (2004-01-21 14:47) [6]

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

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

---

← →
syte_ser78 ©   (2004-01-21 14:54) [7]

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

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

---

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

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



Память: 0.46 MB
Время: 0.012 c