Re: Вопросы от неразбирающегося
Здравствуйте!
Возникла необходимость в повторении однотипного кода. Чтобы не нагружать скрипт, планирую выделить необходимый код в отдельную функцию, чтобы потом просто вызвать ее. Однако не могу понять, как правильно осуществить вызов.procedure Hide_Components (Sender: TObject); var i: integer; lr,lrd,lrpc: TLabel; er: TEdit; begin for i:= 1 to 10 do begin lr:=TLabel(Form2.FindComponent('LRes'+IntToStr(i))); lrd:=TLabel(Form2.FindComponent('LResDelta'+IntToStr(i))); lrpc:=TLabel(Form2.FindComponent('LRespc'+IntToStr(i))); er:=TEdit(Form2.FindComponent('ERes'+IntToStr(i))); lr.Enabled:=false; lrd.Enabled:=false; lrpc.Enabled:=false; er.Enabled:=false; er.Text:=''; end; end;
Должно получиться нечто вроде
procedure Form2_Button1_OnClick(Sender: TObject); begin if .... rhen ....... Hide_Components (); end;
Я не прошу писать за меня готовое решение - понимаю, что работы и помимо этого навалом. Но, возможно, Вы точно знаете, где можно подсмотреть пример для моего случая? Возможно, решение есть в известных Вам проектах. На сторонних форумах, которые я изучал, по подобным вопросам в основном приводятся примеры с простейшими математическими вычислениями (типа а+в), что мне не подходит.
Заранее благодарю за любую помощь.
(Sender: TObject); - (просит Вас что-то передать)
тоесть тут Hide_Components (НУЖНО ЧТО_ ТО ПЕРЕДАТЬ );
можете просто использовать название процедуры без скобок
procedure Hide_Components;
тогда она будет вызываться так
Hide_Components;