Проблема при подключении пользовательской функции

Комментарии

• Markus

  October 2004 отредактировано October 2004

  Кусок кода в студию!
  
  Прикрутил у себя сумму прописью и не только работает нормально
  

  function TZFReport.frxReportUserFunction(const MethodName:String; var Params:Variant):Variant;
  begin
   if SameText(MethodName,'SUMTEXT') then Result := SumText(Params[0])
   ........
  end;
  
  ........
    FFR.AddFunction('function SumText(S: double): string','Дополнительные','Сумма прописью');
  .........
  
• SergU

  October 2004 отредактировано 21:17

  Спасибо, Markus
  
  Нашёл ошибку. Я в куске кода

  ---

  if SameText(MethodName,'SUMTEXT') then Result ...

  ---

  имя функции писал не заглавными буквами, а обычными, типа 'SumText' вот и глючило. Кстати, про это в доке явного упоминания не нашёл.
• Markus

  October 2004 отредактировано October 2004

  SameText не чувствительна к регистру именно поэтому она и использовалась, а не

  if MethodName='MYFUNC' ....
  

  как описано в документации без упоминания о требовании к регистру.