Об использовании FindComponent.

← →
SergS © (2004-05-07 10:30) [0]

Народ, помогите, если кто знает. Сорри за дилетантский вопрос.
Есть гипотетическая прога:

procedure modif(FindComponent:TComponent; Edit1,Edit2:TEdit);
var
t: Integer;
begin
for t:=1 to 2 do
(FindComponent("Edit"+IntToStr(t)) as TEdit).Modified:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
t: Integer;
begin
modif(FindComponent,Edit1,Edi2);
for t:=1 to 2 do
(FindComponent("Edit"+IntToStr(t)) as TEdit).Modified:=False;
end;

Компилятор ругается на FC в процедуре "modif" (Missing operator or semicolon), и на саму процедуру "modif" ниже (Not enough actual parameters). Как то я не так объявляю этого FC в процедуре "modif".
Заранее благодарен за ответ.

← →
ASMiD © (2004-05-07 10:34) [1]

FindComponent - уже есть в TComponent вот и ругается.
Назови, например, MyFindComponent

← →
Рамиль © (2004-05-07 10:35) [2]

modif должна быть методом формы, или вызывай Form1.FindComponent

Большое спасибо, попробую.

Об использовании FindComponent. Найти похожие ветки