Operator not applicable to this operand type Delphi











up vote
3
down vote

favorite












Someone help me to fix this error please.




[Error] Unit1.pas(39): Operator not applicable to this operand type




code is:



procedure TForm1.Button1Click(Sender: TObject);
var
k: Integer;
broj: Real;
begin
k := StrToInt(Edit1.Text);
if k <= 9 then
broj := k
else
broj := (k + 10) / 2;

if k mod 2 = 0 then
broj := broj / 10
else
broj := broj mod 10; // error line

ShowMessage(FloatToStr(broj));
end;









share|improve this question
























  • wiki.freepascal.org/Mod
    – phuclv
    Nov 22 at 13:59






  • 2




    I see no good reason to use Real here. Why don't you make j an Integer instead? Then div and mod will work too: if k mod 2 = 0 then broj := broj div 10 else broj := broj mod 10;.
    – Rudy Velthuis
    Nov 22 at 18:43

















up vote
3
down vote

favorite












Someone help me to fix this error please.




[Error] Unit1.pas(39): Operator not applicable to this operand type




code is:



procedure TForm1.Button1Click(Sender: TObject);
var
k: Integer;
broj: Real;
begin
k := StrToInt(Edit1.Text);
if k <= 9 then
broj := k
else
broj := (k + 10) / 2;

if k mod 2 = 0 then
broj := broj / 10
else
broj := broj mod 10; // error line

ShowMessage(FloatToStr(broj));
end;









share|improve this question
























  • wiki.freepascal.org/Mod
    – phuclv
    Nov 22 at 13:59






  • 2




    I see no good reason to use Real here. Why don't you make j an Integer instead? Then div and mod will work too: if k mod 2 = 0 then broj := broj div 10 else broj := broj mod 10;.
    – Rudy Velthuis
    Nov 22 at 18:43















up vote
3
down vote

favorite









up vote
3
down vote

favorite











Someone help me to fix this error please.




[Error] Unit1.pas(39): Operator not applicable to this operand type




code is:



procedure TForm1.Button1Click(Sender: TObject);
var
k: Integer;
broj: Real;
begin
k := StrToInt(Edit1.Text);
if k <= 9 then
broj := k
else
broj := (k + 10) / 2;

if k mod 2 = 0 then
broj := broj / 10
else
broj := broj mod 10; // error line

ShowMessage(FloatToStr(broj));
end;









share|improve this question















Someone help me to fix this error please.




[Error] Unit1.pas(39): Operator not applicable to this operand type




code is:



procedure TForm1.Button1Click(Sender: TObject);
var
k: Integer;
broj: Real;
begin
k := StrToInt(Edit1.Text);
if k <= 9 then
broj := k
else
broj := (k + 10) / 2;

if k mod 2 = 0 then
broj := broj / 10
else
broj := broj mod 10; // error line

ShowMessage(FloatToStr(broj));
end;






delphi delphi-7






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited Nov 22 at 17:18









Triber

8451026




8451026










asked Nov 22 at 13:39









Edin Hajdarevic

266




266












  • wiki.freepascal.org/Mod
    – phuclv
    Nov 22 at 13:59






  • 2




    I see no good reason to use Real here. Why don't you make j an Integer instead? Then div and mod will work too: if k mod 2 = 0 then broj := broj div 10 else broj := broj mod 10;.
    – Rudy Velthuis
    Nov 22 at 18:43




















  • wiki.freepascal.org/Mod
    – phuclv
    Nov 22 at 13:59






  • 2




    I see no good reason to use Real here. Why don't you make j an Integer instead? Then div and mod will work too: if k mod 2 = 0 then broj := broj div 10 else broj := broj mod 10;.
    – Rudy Velthuis
    Nov 22 at 18:43


















wiki.freepascal.org/Mod
– phuclv
Nov 22 at 13:59




wiki.freepascal.org/Mod
– phuclv
Nov 22 at 13:59




2




2




I see no good reason to use Real here. Why don't you make j an Integer instead? Then div and mod will work too: if k mod 2 = 0 then broj := broj div 10 else broj := broj mod 10;.
– Rudy Velthuis
Nov 22 at 18:43






I see no good reason to use Real here. Why don't you make j an Integer instead? Then div and mod will work too: if k mod 2 = 0 then broj := broj div 10 else broj := broj mod 10;.
– Rudy Velthuis
Nov 22 at 18:43














2 Answers
2






active

oldest

votes

















up vote
3
down vote



accepted










The mod operator needs 2 integers. broj is real (float).



Use this instead



broj := broj - Trunc(broj / 10) * 10;





share|improve this answer




























    up vote
    5
    down vote













    You can't use mod or div with floating point types, e.g. Real.
    Alternatively to previous answer you can use this.



    broj := Frac(broj / 10) * 10;


    or simply FMod from System.Math



    broj := FMod(broj, 10);





    share|improve this answer























      Your Answer






      StackExchange.ifUsing("editor", function () {
      StackExchange.using("externalEditor", function () {
      StackExchange.using("snippets", function () {
      StackExchange.snippets.init();
      });
      });
      }, "code-snippets");

      StackExchange.ready(function() {
      var channelOptions = {
      tags: "".split(" "),
      id: "1"
      };
      initTagRenderer("".split(" "), "".split(" "), channelOptions);

      StackExchange.using("externalEditor", function() {
      // Have to fire editor after snippets, if snippets enabled
      if (StackExchange.settings.snippets.snippetsEnabled) {
      StackExchange.using("snippets", function() {
      createEditor();
      });
      }
      else {
      createEditor();
      }
      });

      function createEditor() {
      StackExchange.prepareEditor({
      heartbeatType: 'answer',
      convertImagesToLinks: true,
      noModals: true,
      showLowRepImageUploadWarning: true,
      reputationToPostImages: 10,
      bindNavPrevention: true,
      postfix: "",
      imageUploader: {
      brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
      contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
      allowUrls: true
      },
      onDemand: true,
      discardSelector: ".discard-answer"
      ,immediatelyShowMarkdownHelp:true
      });


      }
      });














      draft saved

      draft discarded


















      StackExchange.ready(
      function () {
      StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53432264%2foperator-not-applicable-to-this-operand-type-delphi%23new-answer', 'question_page');
      }
      );

      Post as a guest















      Required, but never shown

























      2 Answers
      2






      active

      oldest

      votes








      2 Answers
      2






      active

      oldest

      votes









      active

      oldest

      votes






      active

      oldest

      votes








      up vote
      3
      down vote



      accepted










      The mod operator needs 2 integers. broj is real (float).



      Use this instead



      broj := broj - Trunc(broj / 10) * 10;





      share|improve this answer

























        up vote
        3
        down vote



        accepted










        The mod operator needs 2 integers. broj is real (float).



        Use this instead



        broj := broj - Trunc(broj / 10) * 10;





        share|improve this answer























          up vote
          3
          down vote



          accepted







          up vote
          3
          down vote



          accepted






          The mod operator needs 2 integers. broj is real (float).



          Use this instead



          broj := broj - Trunc(broj / 10) * 10;





          share|improve this answer












          The mod operator needs 2 integers. broj is real (float).



          Use this instead



          broj := broj - Trunc(broj / 10) * 10;






          share|improve this answer












          share|improve this answer



          share|improve this answer










          answered Nov 22 at 13:51









          RM.

          957720




          957720
























              up vote
              5
              down vote













              You can't use mod or div with floating point types, e.g. Real.
              Alternatively to previous answer you can use this.



              broj := Frac(broj / 10) * 10;


              or simply FMod from System.Math



              broj := FMod(broj, 10);





              share|improve this answer



























                up vote
                5
                down vote













                You can't use mod or div with floating point types, e.g. Real.
                Alternatively to previous answer you can use this.



                broj := Frac(broj / 10) * 10;


                or simply FMod from System.Math



                broj := FMod(broj, 10);





                share|improve this answer

























                  up vote
                  5
                  down vote










                  up vote
                  5
                  down vote









                  You can't use mod or div with floating point types, e.g. Real.
                  Alternatively to previous answer you can use this.



                  broj := Frac(broj / 10) * 10;


                  or simply FMod from System.Math



                  broj := FMod(broj, 10);





                  share|improve this answer














                  You can't use mod or div with floating point types, e.g. Real.
                  Alternatively to previous answer you can use this.



                  broj := Frac(broj / 10) * 10;


                  or simply FMod from System.Math



                  broj := FMod(broj, 10);






                  share|improve this answer














                  share|improve this answer



                  share|improve this answer








                  edited Nov 22 at 14:44

























                  answered Nov 22 at 14:29









                  Triber

                  8451026




                  8451026






























                      draft saved

                      draft discarded




















































                      Thanks for contributing an answer to Stack Overflow!


                      • Please be sure to answer the question. Provide details and share your research!

                      But avoid



                      • Asking for help, clarification, or responding to other answers.

                      • Making statements based on opinion; back them up with references or personal experience.


                      To learn more, see our tips on writing great answers.





                      Some of your past answers have not been well-received, and you're in danger of being blocked from answering.


                      Please pay close attention to the following guidance:


                      • Please be sure to answer the question. Provide details and share your research!

                      But avoid



                      • Asking for help, clarification, or responding to other answers.

                      • Making statements based on opinion; back them up with references or personal experience.


                      To learn more, see our tips on writing great answers.




                      draft saved


                      draft discarded














                      StackExchange.ready(
                      function () {
                      StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53432264%2foperator-not-applicable-to-this-operand-type-delphi%23new-answer', 'question_page');
                      }
                      );

                      Post as a guest















                      Required, but never shown





















































                      Required, but never shown














                      Required, but never shown












                      Required, but never shown







                      Required, but never shown

































                      Required, but never shown














                      Required, but never shown












                      Required, but never shown







                      Required, but never shown







                      Popular posts from this blog

                      What visual should I use to simply compare current year value vs last year in Power BI desktop

                      How to ignore python UserWarning in pytest?

                      Alexandru Averescu