on the fastrepor 3.20 divide process

Comments

• Kellouche Algeria

  May 2011 edited May 2011

  hi
  
  just changed integer by extended

  procedure Memo23OnBeforePrint(Sender: TfrxComponent);
  var
    b:iextended;
  begin
    b:=memo10.value/2;
    memo23.text:=FloattoStr(b)
  end;
  
• gordk St.Catherines On. Canada.

  May 2011 edited 10:11PM

  you have declared variable b as the wrong type it should be extended,
  since dividing the value can result in a non integer value.
  then you will also need to modify this line if you only want an iteger result
  memo23.text:=IntToStr(b)
  to
  memo23.text:=IntToStr(int(b))
  
• Mick.pl

  May 2011 edited 10:11PM

  Try

  procedure Memo23OnBeforePrint(Sender: TfrxComponent);
  var
     a,b:integer;
  begin
     b :=  Int( StrToInt(memo10.value) / 2);
     memo23.text := IntToStr( b )
  end;
  

  
  Mick
• jeday_jey

  May 2011 edited 10:11PM

  Thank you very much for you help, all people [img]style_emoticons/<#EMO_DIR#>/rolleyes.gif" style="vertical-align:middle" emoid=":rolleyes:" border="0" alt="rolleyes.gif" /> Regards.[/img]
• jeday_jey

  May 2011 edited May 2011

  Dear All,
  
  Could you please help another a issues. I am not getting decimal result on the calculation process when i do divide.
  
  For example My result: 17 porocess :17/3=5,66
  
  on the Above process was 17/3=5 I dont want this result. I want result 5,66.
  
  Could you please help to me this issues...
  
  Kind regards.
• Mick.pl

  May 2011 edited 10:11PM

  You didn't write the whole instruction. Give the example. Maybe you assign the result to an INTEGER variable.
  Test
  
  ShowMessage( 17/3) and ShowMessage( Int( 17/3))
  
  to see how FR makes this calculatiuon.
  
  And make more tests like below:

  var x :real;
  begin
     x := 17/3;
     ShowMessage( x);
  end;
  

  
  Mick
  
• jeday_jey

  May 2011 edited 10:11PM

  Dear Mick
  
  thank you for you answer
  my code is like below

  procedure Memo23OnBeforePrint(Sender: TfrxComponent);
  var
  b:integer;
  
  begin
    b:=Int( StrToInt(memo10.value) / 3);
    memo23.text:=IntToStr(b)
  
  end;
  

  
  I can not get decimal result on the code...
  
  Iam waiting your help...
  
  regards...
• Mick.pl

  May 2011 edited 10:11PM

  I'm a bit lost [img]style_emoticons/<#EMO_DIR#>/sad.gif" style="vertical-align:middle" emoid=":(" border="0" alt="sad.gif" /> You say you want decimal result, but you still declare[/img]b as int variable.
  Have a look at small example and make some tests:
  

  procedure Memo2OnBeforePrint(Sender: TfrxComponent);
  var b :real;   // NOT int                                                                  
  begin
    b :=  <Line#> / 3;
    // two different ways to transform the result
    // first                         
    Memo2.Text := VarToStr( b );   // I'm not sure if this works in FR3, as I use FR4
    // second                       
    Memo2.Text := FormatFloat('##0.0#####', b );                                                                                                           
  end;