Всем доброго времени суток!
Народ кто знает подскажите плиз. Надо создать процу с необязательным входящем параметром или второму параметру присваивать определенное значение в качестве по-умолчанию если оно не передоется.
смысл такой:
Код:
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 (все равно не используется)?