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

Gresha

Добрый день, у меня вопрос. Как подключить пользовательскую функцию в FR 3, я работаю на C++Buildere 6. Я просмотрел весь форум и нашел на Delphi, но у меня не получилось перевести на с++, помогите плиз!!!
Заранее всем спасибо!!!

-=Den=-

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
frxReport1->AddFunction("function MyFunc(S:String):String","MyFunc","");
frxReport1->ShowReport(true);
}


Variant __fastcall TForm1::frxReport1UserFunction(
      const AnsiString MethodName, Variant &Params)
{
 if(strcmp(MethodName.c_str(),"MYFUNC\0") == 0)
   {
    return Params.GetElement(0);
   }
}

В мемо [MyFunc('dddd')]

Gresha

Огромное спасибо!!!
Все получилось!