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;





delphi delphi-7







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;





delphi delphi-7







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;





delphi delphi-7







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




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

                      Image
                      0 I have column SubToBind that shows current year ratio and column PY SubToBind which shows previous year ratio. How can I simply create a card that would be displaying them both in a nice way? Something like that: I cannot achieve that with regular card, I also tried Card with States by OKViz but also unable to see both values. In KPI visual - I dont like the word "Goal", it will confuse end users. Are there any cards or other visuals that would do the job? Thanks powerbi dax powerbi-embedded share | improve this question edited Jun 11 '18 at 20:11 Oleg ...
                      Read more

                      How to ignore python UserWarning in pytest?

                      Image
                      up vote 1 down vote favorite I am using openpyxl for parsing .xlsm files, and pytest for testing. When I open a file, I get the: OpenPyxl -> UserWarning: Data Validation extension is not supported and will be removed That is not really a problem bcs. program works and I can't change the .xlsm file to fix that. But... When I run pytest with something like: def test_wrong_file_format(): assert check_excel(open_excel('file.xlsm')) == True I will get the warning i mentioned altought check_excel(open_excel('file.xlsm')) returns True and the test should suceed... Is there a nice way to tell the pytest that "It's not a bug it's a feature" and tests should pass even when they get this warning? Is there other way than using something like: with pytest.warns(UserWarning): ...
                      Read more

                      Alexandru Averescu

                      Image
                      Alexandre Averescu Alexandru Averescu Naissance 3 avril 1859 Babele, Ismail  (ro) près de Izmaïl (principauté de Moldavie) Décès 2 octobre 1938 (à 79 ans) [ 1 ] Bucarest Origine   Roumanie Arme cavalerie Grade Maréchal Années de service 1901-1917 Commandement chef d'état-major général 2 e  armée 3 e  armée Groupe d'armée sud armée du Danube Conflits Guerre russo-turque de 1877-1878 Deuxième guerre balkanique Première Guerre mondiale Faits d'armes Bataille de Turtucaia/Tutrakan Bataille de Mărăști Distinctions Autres fonctions 3 fois président du Conseil des ministres ministre des Affaires étrangères ministre sans portefeuille conseiller de la Couronne modifier   Alexandre Averescu (en roumain : Alexandru Averescu .mw-parser-output .prononciation>a{background:url("//upload.wikimedia.org/wikipedia/commons/thumb/8/8a/Loudspeaker.svg/11px-Loudspeaker.svg.png")center ...
                      Read more