Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Johny777

Ветеран


Сообщения: 649
Благодарности: 444

Профиль | Отправить PM | Цитировать


Nordek,
Цитата Nordek:
У тебя InitializeWizard не один? »
Цитата Shkutu:
Должен быть один) »
Цитата Nordek:
//Пример событий имеющие дубликацию »
Shkutu права. Например та же процедура procedure InitializeWizard(); может быть только одна с таким названием
тк инно не поддерживает перегрузку (http://www.delphibasics.ru/Overload.php), и даже не в этом дело. Если б компилятор допускал одинаковые названия глобальных переменных, констант, функций/процедур не отличающихся друг от друга по вызову, такой код если б работал бы, то в режиме хаоса и анархии.
то что у тебя в коде это вызов одних процедур из других
например это
читать дальше »
Код: Выделить весь код
procedure CurPageChanged(CurPageID: Integer);
begin
  CurPageChanged1(CurPageID);
//  CurPageChanged2(CurPageID);
//  CurPageChanged3(CurPageID);
//  CurPageChanged4(CurPageID);
//  CurPageChanged5(CurPageID);
end;

////////////////////////////////////////////////////////////

function InitializeSetup(): Boolean;
begin
  Result := InitializeSetup1(); if not Result then exit;
//  Result := InitializeSetup2(); if not Result then exit;
//  Result := InitializeSetup3(); if not Result then exit;
//  Result := InitializeSetup4(); if not Result then exit;
//  Result := InitializeSetup5(); if not Result then exit;
end;

тоже самое, что и это:
читать дальше »
Код: Выделить весь код
procedure  Johny(CurPageID: Integer);
begin
    //...
end;
procedure  Nordek(CurPageID: Integer);
begin
    //...
end;
procedure  SomeProc(CurPageID: Integer);
begin
    //...
end;
procedure  BadProc(CurPageID: Integer);
begin
    //...
end;
  
procedure CurPageChanged(CurPageID: Integer);
begin
  Johny(CurPageID);
  Nordek(CurPageID);
  SomeProc(CurPageID);
  BadProc(CurPageID);
  //..
end;

/////////////////////////////////////////////////////////////////////////////

function A(): Boolean;
begin

end;
function B(): Boolean;
begin

end;
function C(): Boolean;
begin

end;
function InitializeSetup(): Boolean;
begin
  Result := InitializeSetup1(); if not Result then exit;
//  Result := A(); if not Result then exit;
//  Result := B(); if not Result then exit;
//  Result := C(); if not Result then exit;

end;

Дубликация в моём понимании - это например копирование одного участка памяти по адресу в другой такого-же размера. Вот только в том и дело - это копирование (называем действия своими именами), а не дубликация
в Си-шке есть strdup например...
и на будущее будь внимательнее, чтоб тебе по ушам не ездили с мифическими терминами типа "дубликации событий", тк это может сказаться на твоём восприятии кода, который по сути без подобных терминов всегда очень логичен!

Последний раз редактировалось Johny777, 05-12-2013 в 21:23.


Отправлено: 20:55, 05-12-2013 | #1621