Userfunction Exception Incompatible types

Comments

• -=Den=-

  November 2005 edited 1:13PM

  You will send but parameter type String?
  Try with other parameter.
  
• Komserv

  November 2005 edited 1:13PM

  Thanks for the reply.
  
  I've allready tried it with Integers instead. Same problem;
  Incompatible types: 'Class Integer', 'Integer'
  
  Any other idea?
• -=Den=-

  November 2005 edited 1:13PM

  I working in Delphi 7 and shall create the function so:
  
  In Delphi:

  procedure TForm1.Button1Click(Sender: TObject);
  begin
  frxReport1.AddFunction('function MyFun(x:String):String','User Function','');
  frxReport1.DesignReport;
  
  end;
  
  function TForm1.frxReport1UserFunction(const MethodName: String;
    var Params: Variant): Variant;
  begin
  Result:=0;
  if MethodName ='MYFUN' then
  Result:=UPPERCASE(Params[0]);
  end;
  

  In Script:

  begin
  Memo2.text:=MyFun(Memo1.text);
  end.
  

  You do in the same way?
  
• Komserv

  November 2005 edited 1:13PM

  Hello Den,
  
  To be sure, I included your Code snippets.
  But..... It's the same result. So it might be a problem with the trial version ?
  
  Thanks for your reply
  
• -=Den=-

  November 2005 edited 1:13PM

  Maybe it is problem in Delphi 2005.
• thefreecat

  November 2005 edited November 2005

  I have the same problem in D7 with 3.19 standard. It worked in 3.17. Haven't checked for 3.18. This is urgent since my apps don't work anymore.
  
  Thanks in advance !
  
  For info, I use it this way :
  
  In delphi :

  repx.AddFunction('Function GETAD(cocv:String):String');
  

  
  In FR :

  CurAD:=GetAD(<frxkbm."cocv">);
  

  
  Maybe I shouldn't use angle brackets anymore but [] instead ?
• gordk St.Catherines On. Canada.

  November 2005 edited 1:13PM

  here is a sample using dates and integer return.
  has worked fine for me in all versions
  
  delphi function declared at start of implementation section of form
  
  function DaysBetween(Date1, Date2: TDateTime): Longint;
  begin
  Result := Trunc(Date2) - Trunc(Date1);
  if Result < 0 then Result := 0;
  end;
  
  declare in on show or oncreate of form not when loading report, passes out 2
  dates and return integer difference
  
  frxReport2.AddFunction('function DateDif2(olddate, newdate: TDateTime): Integer','Userfunctions','returns integer value of newdate - olddate');
  
  function TForm1.frxReport2UserFunction(const MethodName: String;
  var Params: Variant): Variant;
  begin
  if AnsiCompareText(MethodName, 'Datedif2') = 0 then
  Result := daysbetween(Params[0], Params[1]);
  end;
  make sure method name matches declaration case sensitive
  you should not need []
  since you are working with strings you may need to add extra '''' when passing result back in.
  
  
• thefreecat

  November 2005 edited November 2005

  Hello gordk.
  
  I was using 3.19.2
  I just installed 3.19.13 and things work correctly now.
  
  Sorry for bothering and thanks again for your help.
• fields24 Tennessee

  April 2007 edited 1:13PM

  I am getting this error, Incompatible types: 'Class Integer', 'Integer'
  (and sometimes Incompatible types: 'Class String', 'string')
  with a IBObjects related report with a few script lines and a simple
  alternating memo field color change on alternate lines. The memofields
  are straight forward map to a dataset and fieldname.
  
  if ((<LINE#> mod 2) = 0) then
  memName1.Color := clSilver
  else
  memName1.Color := clNone;
  
  FastReport Pro 3.24, Delphi 7 pro
  
  Steve Fields
  
• gordk St.Catherines On. Canada.

  April 2007 edited 1:13PM

  where are you writing the code, in the obp event of the memo or the data band containing the memo?