Регистрация польз.функций в 2.47

Комментарии

• bakh Санкт-Петербург

  February 2004 отредактировано 01:39

  Есть такой крутой файл - fr_class.int...
  Так в нём написано буквально следующее:
  ================================================
  procedure frAddFunctionDesc(FuncLibrary: TfrFunctionLibrary;
  FuncName, Category, Description: String);
  ================================================
• Bop

  February 2004 отредактировано 01:39

  Так как теперь зарегистрировать свою функцию, насколько я понял frFunctionLibrary Это целий класс, зачеим он мне (раньше все было намного проще).
  Нужент конкретный пример кода.
• bakh Санкт-Петербург

  February 2004 отредактировано 01:39

  Bop написал:

  Нужент конкретный пример кода.

  Простота не признак правильности...
  Думаю, что будет понятно, хотя мог чего-то ненужного вставить...

  unit MyFunction;
  
  interface
  
  uses
    Classes, SysUtils, FR_Class, FR_Const, FR_Utils;
  
  {$I FR.inc}
  
  ...
  
  type
    TMyFunctionLibrary = class(TfrFunctionLibrary)
    public
      constructor Create; override;
      procedure DoFunction(FNo: Integer; p1, p2, p3: Variant; var val: Variant); override;
    end;
  
   procedure Register;
  
  implementation
  
  {$R fr_myfn.res}
  
  ...
  
  { TMyFunctionLibrary }
  
  {--------------------------------------------------------------------}
  { Create library                                                     }
  {--------------------------------------------------------------------}
  constructor TMyFunctionLibrary.Create;
  begin
  
   inherited Create;
  
   with List do begin
     Add('Something');
   end; { with }
  
   AddFunctionDesc('Something', rsString, 'Some Description');
  
    { some personal initializations }
  
  end; { Create }
  
  {--------------------------------------------------------------------}
  { Processing the call function                                       }
  {--------------------------------------------------------------------}
  procedure TMyFunctionLibrary.DoFunction(FNo: Integer; p1, p2, p3: Variant; var val: Variant);
  var
    cStr :String;
  
  begin
  
   val := 0;
  
   case FNo of
     0: val := Something(frParser.Calc(p1));
   end; { case }
  
  end; { DoFunction }
  
  {--------------------------------------------------------------------}
  { Convert from typeString into type TfrCharSet                       }
  {--------------------------------------------------------------------}
  function Something(cStr :String) :String;
  begin
  
    Result := DoSomething;
  
  end; { Something }
  
  procedure Register;
  begin
   RegisterComponents('FastReport', [TfrMyFunctionLibrary]);
  end;
  
  
  initialization
    frRegisterFunctionLibrary(TMyFunctionLibrary);
  
  finalization
    frUnRegisterFunctionLibrary(TMyFunctionLibrary);
  
  
  end.
  
• Vano

  February 2004 отредактировано 01:39

  Реальный пример кода:
  

    TfrPDFunctionLibrary = class (TfrFunctionLibrary)
    public
     constructor Create; override;
     procedure DoFunction(FNo: Integer; p1, p2, p3: Variant;
       var val: Variant); override;
    end;
  
  constructor TfrPDFunctionLibrary.Create;
  begin
   inherited Create;
   with List do
    begin
      Add('VALUETOTEXT');
      Add('GETDOCNAME');
      Add('GETFIOPADEG');
      Add('GETDOLPADEG');
      Add('GETSEX');
      Add('MONEYTOTEXT');
    end;
   AddFunctionDesc('VALUETOTEXT','Дополнительные','VALUETOTEXT(<Число>, <Род>, <Выводить дробную часть>)/Возвращает число прописью. Значение рода: 0 - мужской, 1 - женский, 2 - средний. Выводить дробную часть: 0 - нет, 1 - да.');
   AddFunctionDesc('GETDOCNAME','Дополнительные','GETDOCNAME(<Тип документа>, [Во множественном числе])/Возвращает название типа документа.');
   AddFunctionDesc('GETFIOPADEG','Дополнительные','GETFIOPADEG(<Фамилия Имя Отчество>, <Падеж>)/Склоняет ФИО по падежам. Падеж должен иметь значение от 1 до 6.');
   AddFunctionDesc('GETDOLPADEG','Дополнительные','GETDOLPADEG(<Должность>, <Падеж>)/Склоняет должность по падежам. Падеж должен иметь значение от 1 до 6.');
   AddFunctionDesc('GETSEX','Дополнительные','GETSEX(<Отчество>)/Возвращает пол человека по его отчеству. Результат функции: 0 - мужской, 1 - женский, 2 - неопределён.');
   AddFunctionDesc('MONEYTOTEXT','Дополнительные','MONEYTOTEXT(<Число>, <Валюта>)/Возвращает число прописью в указанной валюте');
  end;
  
  procedure TfrPDFunctionLibrary.DoFunction(FNo: Integer; p1, p2, p3: Variant; var val: Variant);
  var R:Integer;
  begin
   try
   case FNo of
    0:begin
       R:=frParser.Calc(p2);
       if R in [0..2] then
        begin
         if frParser.Calc(p3)=1 then
          Val:=FloatToText(frParser.Calc(p1),R)
         else
          Val:=ValueToText(Trunc(frParser.Calc(p1)),R,['','','','','','','','','',''],True);
        end;
      end;
    1:Val:=GetDocName(frParser.Calc(p1),frParser.Calc(p2)=1);
    2:Val:=GetFIOFromStr(frParser.Calc(p1),'',frParser.Calc(p2));
    3:Val:=GetAppointment(frParser.Calc(p1),frParser.Calc(p2));
    4:case GetSex(frParser.Calc(p1)) of
       'м':Val:=0;
       'ж':Val:=1;
      else
       Val:=2;
      end;
    5:Val:=MoneyToText(frParser.Calc(p2),frParser.Calc(p1),frParser.Calc(p3)=0);
   end;
   finally
   end;
  end;
  
  initialization
   frRegisterFunctionLibrary(TfrPDFunctionLibrary);
  
  finalization
   frUnRegisterFunctionLibrary(TfrPDFunctionLibrary);
  

  
  
• tanya

  April 2004 отредактировано 01:39

  Здравствуйте.
  Помогите разобраться, как зарегистрировать свою библиотеку функций так, чтобы она была доступна в дизайнере во время разработки?
  
  У меня есть unit с библиотекой функций (прописан в путях);
  У меня есть unit c моим классом TfrMyFunctionLibrary = class (TfrFunctionLibrary) - сделан по примеру Vano (лежит в /Source FR);
  Регистрация моего класса прописана в разделе initialization unit'а класса.
  frUnRegisterFunctionLibrary вручную не вызывается.
  
  
  В run-time всё работает, есть закладка 'Дополнительные' с моими функциями, они отрабатывают...
  
  Но в design-time закладки нет, функции не отрабатывают (в preview), но синтаксических ошибок тоже нет, т.е. писать их можно.
  
  Подскажите, пожалуйста, как правильно регистрировать (и можно ли)