Показать сообщение отдельно
Старый 16.01.2004, 12:20     # 3
CEO
Full Member
 
Аватар для CEO
 
Регистрация: 31.08.2003
Адрес: где-то между Марсом и Юпитером
Сообщения: 998

CEO Имеются все основания чтобы гордиться собойCEO Имеются все основания чтобы гордиться собойCEO Имеются все основания чтобы гордиться собойCEO Имеются все основания чтобы гордиться собойCEO Имеются все основания чтобы гордиться собойCEO Имеются все основания чтобы гордиться собойCEO Имеются все основания чтобы гордиться собойCEO Имеются все основания чтобы гордиться собойCEO Имеются все основания чтобы гордиться собойCEO Имеются все основания чтобы гордиться собойCEO Имеются все основания чтобы гордиться собой
Цитата:
А насчет переменного числа параметров, то в Об. Паскале (Delphi) этого вроде делать нельзя, кроме как передавать параметры в массиве переменной длинны.
Пример.
Код:
procedure f(arg: array of const);
var i: Integer;
    b: Boolean;
    o: TObject;
    c: TClass;
begin
  i := arg[0].VInteger;
  b := arg[1].VBoolean;
  o := arg[2].VObject;
  c := arg[3].VClass;
  //...
end;
Вызов:

f([100, True, nil, TObject]);

Добавлено через 6 минут:
Так же смотри здесь:
http://www.delphiworld.narod.ru/base..._any_type.html
http://delphiworld.narod.ru/base/call_c_function.html
http://www.delphiworld.narod.ru/base...ams_count.html
__________________
Старые игры раздают здесь
CEO вне форума