[dmdx]

Всем доброго времени суток!

Народ кто знает подскажите плиз. Надо создать процу с необязательным входящем параметром или второму параметру присваивать определенное значение в качестве по-умолчанию если оно не передоется.
смысл такой:

Код:

type
 TCliType = (New,Edit,View);
...
procude EditCli(TypeCli: TCliType,CliID: variant);
begin
 case TypeCli of
  New: Proc1;
  Edit: Proc2(CliID);
  View: Proc3(CliID);
 end;
end;
...
// вызов в идеале
EditCli(New);
Editcli(Edit,GetVal('ID'));
EditCli(View,GetVal('ID'));

При последующем неправильном оформлении кода БАН.

как видно для вызова с параметром New передавать второй параметр не нужно. Даже не знаю как поступить может передавать типа 0 (все равно не используется)?