出现is not a valid floating point value

发布网友 发布时间：2022-05-30 05:53

我来回答

共3个回答

热心网友 时间：2023-10-11 13:08

就是说‘空字符串不是一个合法的浮点数’是所给的参数有问题，可能是记录被删除，访问了这条记录产生的错。

functionTEmbeddedWB．PrintMarginStr（M：Real）：PChar；

var

S：string；

begin

if printOptions.Measure <> RuntimeMeasure

thenbegin

ifRuntimeMeasure＝mMetricthen

s：＝FloatToStr（M＊InchToMetric）else

s：＝FloatToStr（M／InchToMetric）；

Result：＝PChar（S）；

endelseResult：＝PChar（FloatToStr（M））；

end；

扩展资料:

1、连接运算concat（s1，s2，s3…sn）相当于s1＋s2＋s3＋…＋sn．

例：concat（‘11’，＇aa’）＝＇11aa’；

2、求子串。Copy（s，I，I）从字符串s中截取第I个字符开始后的长度为l的子串。

例：copy（‘abdag’，2，3）＝’bda’

3、删除子串。过程Delete（s，I，l）从字符串s中删除第I个字符开始后的长度为l的子串。

例：s：＝’abcde’；delete（s，2，3）；结果s：＝’ae’

4、插入子串。过程Insert（s1，s2，I）把s1插入到s2的第I个位置

例：s：＝abc；insert（‘12’，s，2）；结果s：＝’a12bc’

参考资料来源：百度百科-字符串

热心网友 时间：2023-10-11 13:09

就是说‘空字符串不是一个合法的浮点数’是所给的参数有问题，可能是记录被删除，访问了这条记录产生的错。

function TEmbeddedWB.PrintMarginStr(M: Real): PChar;

var

S: string;

begin

if printOptions.Measure <> RuntimeMeasure

then begin

if RuntimeMeasure = mMetric then

s := FloatToStr(M * InchToMetric) else

s := FloatToStr(M / InchToMetric);

Result := PChar(S);

end else Result := PChar(FloatToStr(M));

end;

扩展资料:

1、连接运算 concat(s1,s2,s3…sn) 相当于s1+s2+s3+…+sn.

例：concat(‘11’,'aa’)='11aa’;

2、求子串。 Copy(s,I,I) 从字符串s中截取第I个字符开始后的长度为l的子串。

例:copy(‘abdag’,2,3)=’bda’

3、删除子串。过程 Delete(s,I,l) 从字符串s中删除第I个字符开始后的长度为l的子串。

例：s:=’abcde’;delete(s,2,3);结果s:=’ae’

4、插入子串。 过程Insert(s1,s2,I) 把s1插入到s2的第I个位置

例：s:=abc;insert(‘12’,s,2);结果s:=’a12bc’

参考资料来源：百度百科-字符串

热心网友 时间：2023-10-11 13:09