VPF::параметры процедуры - прописывать или нет

Teleport

Дата 7.8.2009, 14:42 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 1
Всего: 6

Вобщем есть процедуры с участием компонентов:

Код


//прописываем параметры
procedure My_text(Label1, Label2: TLabel);
begin
  Label1.Caption:= 'Мой текст1';
  Label2.Caption:= 'Мой текст2';
end;

//не прописываем параметры
procedure My_text_other;
begin
 with Form1 do begin
  Label1.Caption:= 'Мой текст другой1';
  Label2.Caption:= 'Мой текст другой2';
 end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
My_text(Label1, Label2);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 My_text_other;
end;

существует ли разница - прописывать или не прописывать параметры процедур? Разница - в выделении ресурсов компьютера есть? Или оба способа абсолютно одинаковы и памяти кушают одинаково?

--------------------

CodeMonkey

Дата 7.8.2009, 15:18 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 29
Всего: 89

Использование глобальных переменных - абсолютное зло, поэтому вариант с My_text_other вообще не нужно рассматривать.
Другое дело, если бы My_text_other был бы методом Form1.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Teleport

Дата 7.8.2009, 15:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 1
Всего: 6

2 CodeMonkey

Цитата

Использование глобальных переменных - абсолютное зло,...

я так и предполагал. Вот как я тебя понял:

Код


type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button3: TButton;
    procedure My_Text_method;
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//Как метод Form1
procedure My_Text_method;
begin
 with Form1 do begin
  Label1.Caption:= 'Мой текст1 метод';
  Label2.Caption:= 'Мой текст2 метод';
 end;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
 My_Text_method;
end;

end.

Правильно ли я тебя понял?

--------------------

CodeMonkey

Дата 7.8.2009, 15:57 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 29
Всего: 89

Да, только My_Text_method будет выглядеть так:

Код

//Как метод Form1
procedure TForm1.My_Text_method;
begin
  Label1.Caption:= 'Мой текст1 метод';
  Label2.Caption:= 'Мой текст2 метод';
end;

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Teleport

Дата 7.8.2009, 16:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 1
Всего: 6

точно! и его через инспектор можно прикрутить к нужным методам. Спасибо, вопрос решен smile

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »