delphi类型问题
procedure TFrmChargeReg.ComboBox5Click(Sender: TObject);
var
sSql:string;
Area,Nature,pgjiazhi,jyjiage:string;
shuilv:integer;
begin
if (g_userinfo.CurrentRegInfo.StepName='收税') then begin
if (ComboBox5.text='评估价值') then begin
sSql:='select * from view_chargereg where 受理ID='+g_userinfo.CurrentRegInfo.RegID;
with frmPricetabledlg do begin
dqInfo.close;
dqInfo.sql.text:=sSql;
dqInfo.open;
if not dqInfo.IsEmpty then
begin
Area :=dqInfo.fieldbyname('建筑面积').asstring;
Nature :=dqInfo.fieldbyname('产权使用性质').asstring;
pgjiazhi:=dqInfo.fieldbyname('评估价值').asstring;
jyjiage:=dqInfo.fieldbyname('交易价格').asstring;
end
end ;
if (strtoint(Area))>='140' then begin
end
end
end
end;
提示我类型不匹配 if (strtoint(Area))>='140' then begin
谁能告诉我,我用面积做比较需要什么写
还有我想给shuilv赋值应该怎么写?我定义的shuilv类型对么?
参考答案:if (strtoint(Area))>='140' then begin
改成
if (strtoint(Area))>=140 then begin
shuilv类型错了。
shuilv:float
那你得先确定一下你“建筑面积”字段的类型。
我在机上试了下可以的：
a:='140.3';
if (strtofloat(a))>140 then
begin
showmessage('ok');
end
else
showmessage('NO');
返回“ok”。
你检查检查。