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
:-)))

>>Nimnull (19.12.03 17:04)

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

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

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

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