盒子论坛 v2.1

procedure DispUnitValue();//显示单位值
begin

   case Grade_ID of
   B_m:strData:=strtofloat(trim(strData));
        if (strData>=1.0000000) and (strData<=20.000000) then
        begin
        Grade_ID:=B_m;
        end;
   B_C:strData:=trim(strData);

   B_K:strData:=floattostr(strtofloat(trim(strData))*1000);

   B_MM:strData:=floattostr(strtofloat(trim(strData))*1000000);

   end;
   case Grade_ID of
   B_m:main.lab_unit.Caption:='mHz';
   B_C:main.lab_unit.Caption:='Hz';
   B_K:main.lab_unit.Caption:='KHz';
   B_MM:main.lab_unit.Caption:='MHz';
     end;
    main.lab_Data.Caption:=strData;
end;
出错为:
Build
  [Error] KeyValue.pas(1787): Incompatible types: 'String' and 'Extended'
  [Error] KeyValue.pas(1788): Incompatible types: 'String' and 'Integer'
  [Error] KeyValue.pas(1788): Incompatible types: 'String' and 'Integer'
  [Error] KeyValue.pas(1791): Constant expression expected
  [Fatal Error] Project1.dpr(6): Could not compile used unit 'KeyValue.pas'
----------------------------------------------
-

作者：

datm (dATM)	★☆☆☆☆	-
	盒子活跃会员

2009/1/15 15:58:56

1楼：

strData是啥类型
----------------------------------------------
-

信息

登陆以后才能回复