ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от [K4t]

Тут, решил сделать procedure, но столкнулся с неизвестностью:
В этой процедуре я использую компоненты разные, такие как, например, tlistbox tedit и др. Но их у меня задействовано очень много. И что-же их всёх заносить в переменные??

Код:

procedure herovina(StaticText1: TStaticText; StaticText2: TStaticText; StaticText3: TStaticText; StaticText4: TStaticText; ... {и так до бесконечности});begin ... end;

Или можно как-то сделать без этого. Но это еще ничего... а вот как с ней возиться при "вызове" процедуры?

В секции private объяви свою функцию:

Код:

private
  procedure herovina;
end;

Где-то в коде пиши саму функцию:

Код:

procedure TForm1.herovina;
begin
  StaticText1.Caption := 'ага';
end;