为什么老说IF...THEN出错??

你的Pascal语言好差哦.比我还差,看你写的代码,你以前是学C的吧?
原因是因为类型不同,就应该把 i 这个变量转为整开再判断.
像下面这样应该就不会错了.


procedure TForm1.Button1Click(Sender: TObject);
var
   i,u:Integer;        //把i和u声明为整型;
   money:Single;       //把money声明为实型;
begin
   i:=StrToInt(edit1.text) ;   //把Edit1.Text转为整型再赋给变量i; 注意,Edit里你要限制输入的内容,否则容易出错.
   u:=StrToInt(edit2.text);    //把Edit1.Text转为整型再赋给变量u;
   if i<1000 then              //你的问题就出在这里.字符型怎么能跟整开比效呢?
      money:=i-u                              //注意,这里不能加分号;
   else if (i>1000) and (i<=2000) then        //这里要加括号,注意他们的优先级.
      money:=(i-u) * 0.9 ;                    //由于这里是实数相乘,所以money要声明为实型.
end;