lastdelimiter

Comments

• Anu de Deus Hampshire, UK

  March 2010 edited March 2010

  Do you know exactly how to achieve that in Delphi code?
  If yes, all you need is to create a user function. For example, I have a function that removes the ending CrLf of the memo.text, called by me as 'DoTrim':
  In Delphi:
  

  frxReport1.OnUserFunction := CustomReportFunction;
       frxReport1.AddFunction('function DoTrim(const pValue: string; var pTxt: string):boolean;', 'My Internal');
  

  
  then you implement it (still in your .pas file):

    function TRptBuilder.DoTrim(const Value: string; var pTxt: string): boolean;
    // trims trailing CrLf and blank spaces
    var
      lL: Integer;
    begin
      result := false;
      pTxt := Value;
      lL := length(pTxt);
      try
        while (lL > 0) and ((pTxt[lL] = #13) or (pTxt[lL] = #10) or (pTxt[lL] = ' ')) do
        begin
          Delete(pTxt, lL, 1);
          lL := length(pTxt);
          result := true;
        end;
      except
      end;
    end;
  

  
  And add this too:
  

  function TRptBuilder.CustomReportFunction(const MethodName: string; var Params: Variant): Variant;
    var
      lStr1: string;
    begin
      result := MethodName;
     if MethodName = 'DOTRIM' then
      begin
        if ((TVarData(Params[0]).VType = varString) or (TVarData(Params[0]).VType = varOleStr)) and
          ((TVarData(Params[1]).VType = varString) or (TVarData(Params[1]).VType = varOleStr)) then
        begin
          lStr1 := Params[0];
          result := DoTrim(lStr1, lStr1);
          Params[1] := lStr1;
        end
        else
          Showmessage('Invalid Parameters for DoTrim()');
      end
      else if MethodName = 'RESETCHAPTERCOUNTERS' then
        ResetChapterCounters
      else
        Showmessage('Not found: ' + MethodName);
    end;
  end;
  

  
  
  Then you can use it in the script, for your memo:
  

  procedure m1OnAfterData(Sender: TfrxComponent);
  var
   lTxt : string;
  begin
    lTxt := VarToStr(Value);     
    if DoTrim(lTxt, lTxt) then                 
      TfrxMemoView(sender).text := lTxt;
  end;
  

  
  All you need to do is follow those steps to create a function that does exactly what you neeed (not what I showed here).
  
  Search for 'OnUserFunction' in the pdf help files and you will find more about it.
• Steerpike

  March 2010 edited 9:15PM

  Hi Anu and thanks for your quick reply [img]style_emoticons/<#EMO_DIR#>/smile.gif" style="vertical-align:middle" emoid=":)" border="0" alt="smile.gif" />! I still have some problems, though. I tried to do as you shown in your reply, but I got an error message saying that "Script error at <line no in code part in report> Undeclared identifier: '<name of my function>'. I have tried several things without any luck. I even copied your excact code into my pas-file to see if that would produce another result. It did not. Do you know what I am doing wrong?[/img]
• Anu de Deus Hampshire, UK

  March 2010 edited 9:15PM

  It looks like you are not doing it in good time, try calling
  frxReport1.OnUserFunction := CustomReportFunction;
  frxReport1.AddFunction(...);
  as the last thing just before you call the show/preview methods.
  Otherwise, the only thing I can suggest is to read the manual, I learned from there.
• Steerpike

  March 2010 edited 9:15PM

  Yes, that was all that needed to be done