一个怪问题。

[moyue]

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

[lyq]

将代码贴出来.

[moyue]

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。

[songlian77]

不可能吧，我把你這段代碼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;

[moyue]

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

[307]

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

[tobelost]

never used!

ShowMessage(FloatToStr(iitemsumprice));

add this and then compile,may be OK.

[Chayezi]

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

[Rijie]

value assigned to 'itemsumprice' never used.

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

[moyue]

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

[moyue]

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

[moyue]

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