一个怪问题。

Question

为什么总提示 value assigned to 'itemsumprice' never used.（itemsumprice 是real型数据。）而且有itemsumprice这个变量的语句就不执行了。
例如：itemsumprice:=iitemsumprice-iitemprice; （iitemprice也是real型的。）

Answer 1

var 
    iitemsumprice:real;
    iitem:real;  
    iaddprice:real; 
    izhekou:real;
    iadditem:real;
................
    if iitem>iadditem then
    begin
        iitem:=4;
        iitemsumprice:=(iitemprice*iitem+iaddprice)*izhekou;
    end;
不知道怎么回事，就是不运行begin...end中的内容，在运行到if 语句时iitem值为6，iadditem值为1.5。

Answer 2

不可能吧，我把你這段代碼copy下來，然后對其賦值，會運行IF啊procedure TForm1.Button1Click(Sender: TObject);
var
  iitemsumprice:real;
  iitem:real;
  iaddprice:real;
  izhekou:real;
  iadditem:real;
  iitemprice:real;
begin
  iitemsumprice := 1;
  iaddprice := 2;
  izhekou := 4;
  iadditem := 1.5;
  iitemprice := 8;
  iitem := 6;
  if iitem>iadditem then
  begin
    iitem:=4;
    iitemsumprice:=(iitemprice*iitem+iaddprice)*izhekou;
  end;
  showmessage(FloatToStr(iitemsumprice));
end;

Answer 3

不会吧，我这怎么老是出现value assigned to 'itemsumprice' never used啊！！

Answer 4

你的itemsumprice在那里，错误提示说它从没给你使用过！
有问题请发信息到我的E-mail:[email protected]

Answer 5

never used! ShowMessage(FloatToStr(iitemsumprice));add this and then compile,may be OK.

Answer 6

你把‘itemsumprice' 与 ’iitemsumprice'搞错了吧

Answer 7

value assigned to 'itemsumprice' never used.上面这段话对你程序的运行没有任何影响，
只是告诉你，你的定义的“itemsumprice”没有实际用处（只是赋了一个值给它）。

Answer 8

主要是不运行begin...end中的内容

Answer 9

我把那段程序单独放在一个单元里可以使用，发现iitem在未赋值时的值好像是3.3533333333-156，而在出错的单元中未赋值时的值却是0，不知道什么问题了，郁闷。

Answer 10

我现在把iitem等变量的定义放到别的地方去就可以了，这是怎么回事啊。