這是我最上面設的變數

var
Form1: TForm1;
strShow :string;
intX,intI, intJ, intA , intZ , intMresult, intM1, intResult:double;


等於(=) 鍵的部分
var intResult,intJ:real;
begin
intA := round(intA);
intJ := StrTofloat(strShow);
case intA of
1:
begin
intResult := intI intJ;
end;
2:
begin
intResult := intI - intJ;
end;
3:
begin
intResult := intI * intJ;
end;
4:
begin
intResult := intI div intJ;
end;
end;
strShow := floatTostr(intresult);
edit1.text := strShow;

然後在執行時出現
Error: Ordinal expression expected
Error: Constant and CASE types do not match
Error: Incompatible types: got "Real" expected "LongInt"


請問我該怎麼解決呢ˊ3ˋ

 
case 後的數值,應該是整數 ??

所以 intA 宣告為 double 對嗎? , 改用 integer 應該才符合與語法

intA : integer;

------
---------------------------------------
偶爾才來 KTOP ,交流條碼問題,在 FB [條碼標籤達人] 社團留言,感恩.

 因為要可以用小數點 所以無法設整數
所以宣告double 那這樣該怎麼處裡呢 ˊ3ˋ

CASE    只能是整数,不管如何都要转为整数, round就是整数化,
這是我最上面設的變數
修改为:

var
Form1: TForm1;
strShow :string;
intX,intI, intJ, intA , intZ , intMresult, intM1, intResult:double;
i:integer;

等於(=) 鍵的部分
var intResult,intJ:real;
begin
i := round(intA);
intJ := StrTofloat(strShow);
case i of
1:
begin
intResult := intI intJ;
end;
2:
begin
intResult := intI - intJ;
end;
3:
begin
intResult := intI * intJ;
end;
4:
begin
intResult := intI / intJ;
end;
else
end;
strShow := floatTostr(intresult);
edit1.text := strShow;

編輯記錄

使用 Trunc