Форум: "Основная";
Текущий архив: 2004.01.05;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2004.01.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c