我在edit33.text中输入数值后，在edit23中计算出结果？

if (edit33.text)<=('0') then
begin
edit23.Text:='0';
end;
if ((edit33.text)>('0')) and ((edit33.text)<=('500')) then
begin
edit23.text:=floattostr(strtofloat(edit33.text)*strtofloat('0.05'));
end;
if ((edit33.text)>('500')) and ((edit33.text)<=('2000')) then
begin
edit23.text:=floattostr(strtofloat(edit33.text)*strtofloat('0.1')-strtofloat('25'));
end;
if ((edit33.text)>('2000')) and ((edit33.text)<=('5000')) then
begin
edit23.text:=floattostr(strtofloat(edit33.text)*strtofloat('0.15')-strtofloat('125'));
end;
if ((edit33.text)>('5000')) and ((edit33.text)<=('20000')) then
begin
edit23.text:=floattostr(strtofloat(edit33.text)*strtofloat('0.25')-strtofloat('1375'));
end;

当我输入2247时，得到的结果是负数，有点苦恼，一直找不到原因，请高手指教！！！

長官：

我用您的程式 run 出來是 ok 的，若Edit33.Text:='2247' 則Edit23.Text:='212.05'，但是我建議您不要以字串方式處理。


[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var iNumber, iAnswer: extended;
begin
iNumber:=strtofloat(edit33.text);
if iNumber<=0 then iAnswer:=0;
if (iNumber>0) and (iNumber<=500) then iAnswer:=iNumber*0.05;
if (iNumber>500) and (iNumber<=2000) then iAnswer:=iNumber*0.1-25;
if (iNumber>2000) and (iNumber<=5000) then iAnswer:=iNumber*0.15-125;
if (iNumber>5000) and (iNumber<=20000) then iAnswer:=iNumber*0.25-1375;
edit23.text:=floattostr(iAnswer);
end;
[/code]