procedure TForm1.Button1Click(Sender: TObject);
var
   i:string;u,money:string;
begin
   i:=edit1.text ;
   u:=edit2.text;
   if i<1000 then----红条老在这里出现.错误提示是说 Incompatible type:'string'and'integer'
      money=i-u;
      else if i>1000 and i<=2000 then
      money=(i-u)*0.9 ;
      else
end;
end.
请高手解释下是什么意思....谢谢...
还有这段代码没有出错的地方了吧?
是不是edit控件类型不符?要怎么写才行?

[[it] 本帖最后由 lfkm 于 2008-4-21 17:34 编辑 [/it]]