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
edited Nov 22 at 17:18
Triber
8451026
asked Nov 22 at 13:39
Edin Hajdarevic
266
add a comment |
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
edited Nov 22 at 17:18
Triber
8451026
asked Nov 22 at 13:39
Edin Hajdarevic
266
wiki.freepascal.org/Mod
– phuclv
Nov 22 at 13:59
2
I see no good reason to useRealhere. Why don't you makejanIntegerinstead? Thendivandmodwill work too:if k mod 2 = 0 then broj := broj div 10 else broj := broj mod 10;.
– Rudy Velthuis
Nov 22 at 18:43
add a comment |
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
edited Nov 22 at 17:18
Triber
8451026
asked Nov 22 at 13:39
Edin Hajdarevic
266
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
edited Nov 22 at 17:18
Triber
8451026
asked Nov 22 at 13:39
Edin Hajdarevic
266
edited Nov 22 at 17:18
Triber
8451026
asked Nov 22 at 13:39
Edin Hajdarevic
266
edited Nov 22 at 17:18
Triber
8451026
edited Nov 22 at 17:18
Triber
8451026
edited Nov 22 at 17:18
Triber
8451026
8451026
asked Nov 22 at 13:39
Edin Hajdarevic
266
asked Nov 22 at 13:39
Edin Hajdarevic
266
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 useRealhere. Why don't you makejanIntegerinstead? Thendivandmodwill work too:if k mod 2 = 0 then broj := broj div 10 else broj := broj mod 10;.
– Rudy Velthuis
Nov 22 at 18:43
add a comment |
wiki.freepascal.org/Mod
– phuclv
Nov 22 at 13:59
2
I see no good reason to useRealhere. Why don't you makejanIntegerinstead? Thendivandmodwill 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
add a comment |
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;
answered Nov 22 at 13:51
RM.
957720
add a comment |
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);
answered Nov 22 at 14:29
Triber
8451026
add a comment |
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;
answered Nov 22 at 13:51
RM.
957720
add a comment |
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;
answered Nov 22 at 13:51
RM.
957720
add a comment |
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;
answered Nov 22 at 13:51
RM.
957720
The mod operator needs 2 integers. broj is real (float).
Use this instead
broj := broj - Trunc(broj / 10) * 10;
answered Nov 22 at 13:51
RM.
957720
answered Nov 22 at 13:51
RM.
957720
answered Nov 22 at 13:51
RM.
957720
answered Nov 22 at 13:51
RM.
957720
957720
add a comment |
add a comment |
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);
answered Nov 22 at 14:29
Triber
8451026
add a comment |
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);
answered Nov 22 at 14:29
Triber
8451026
add a comment |
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);
answered Nov 22 at 14:29
Triber
8451026
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);
answered Nov 22 at 14:29
Triber
8451026
edited Nov 22 at 14:44
answered Nov 22 at 14:29
Triber
8451026
answered Nov 22 at 14:29
Triber
8451026
answered Nov 22 at 14:29
Triber
8451026
8451026
add a comment |
add a comment |
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.
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
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
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
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
wiki.freepascal.org/Mod
– phuclv
Nov 22 at 13:59
2
I see no good reason to use
Realhere. Why don't you makejanIntegerinstead? Thendivandmodwill work too:if k mod 2 = 0 then broj := broj div 10 else broj := broj mod 10;.– Rudy Velthuis
Nov 22 at 18:43