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

HELP, HELP ошибка с FindComponent   Найти похожие ветки 

← →
Nimnull   (2003-12-19 17:04) [0]

Уважаемые мастера помогите пожалуйста

В этом случае ошибка Access Violation.... не выдается

procedure TMainForm.Button1Click(Sender: TObject);
var
j: Byte;
begin
for j:=1 to 4 do
TMenuItem(FindComponent("St"+IntToStr(j))).Caption:= IntToStr(j);
end;

А в этом случае она тут как тут...

procedure TMainForm.Button1Click(Sender: TObject);
var
j: Byte;
begin
j:=1;
with Dm.StatDgTable do begin
Open;
while not Eof do begin
TMenuItem(FindComponent("St"+IntToStr(j))).Caption:= FieldByName("NameStDg").AsString;
Inc(j);
Next;
end;
Close;
end;
end;

---

← →
Тимохов ©   (2003-12-19 17:05) [1]

щас будет делетэ, как в прошлый раз.

---

← →
Anatoly Podgoretsky ©   (2003-12-19 17:17) [2]

И у тебя есть этот FindComponent("St"+IntToStr(j)
Больно ты самоуверенный

---

← →
Юрий Федоров ©   (2003-12-19 17:39) [3]

Я так полагаю, что
>>with Dm.StatDgTable do begin

DM - это дата модуль?
В таком случае ты вызываешь его
FindComponent. Он не находится, возвращает nil, и дальше получаем наш любимый AV по чтению адреса, близкого к 0

---

← →
Тимохов ©   (2003-12-19 17:42) [4]

Юрий Федоров © (19.12.03 17:39) [3]
Разве так? У него же нет with dm do у него with Dm.StatDgTable do, причем здесь findcomponent дата модуля?

---

← →
Семен Сорокин ©   (2003-12-19 17:56) [5]

Тимохов © (19.12.03 17:42) [4]
здесь вызывается метод FindComponent для Dm.StatDgTable, т.к. если это TTable, то он наследуется от TComponent и имеет соответсвующий метод.

---

← →
Юрий Федоров ©   (2003-12-19 17:57) [6]

пардон, проглядел.
Значит тут играет Dm.StatDgTable.FindComponent
:-)))

---

← →
Юрий Федоров ©   (2003-12-19 18:00) [7]

>>Nimnull (19.12.03 17:04)

В общем, напиши
TMenuItem( Self.FindComponent("St"+IntToStr(j))).Caption:= FieldByName("NameStDg").AsString;

---

← →
Тимохов ©   (2003-12-19 18:01) [8]

Семен Сорокин © (19.12.03 17:56) [5]
С этим согласен.

---

← →
Nimnull   (2003-12-22 09:19) [9]

Спасибо всем большое, просто огромное спасибо... Особенно Юрию Сорокину, на тот момент его ответ меня очень выручил...

---

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

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



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