delphi简单问题，在线等待......

[wwyysha]

字符转载转换成real型如何判断可以转化？
比如
str:string;
p:real;

//可以转换
str:='10.1';
p:=StrToFloat(str);
//报错
str:='#0.1';
p:=StrToFloat(str);
可不可以在转换前
先判断一下？？
不用节位的方法的。。。。。。。

[pcbaby]

if isnumeric(str) then ……

[Billy_Chen28]

isnumeric

[killlaoli]

isnumeric 只能判断字符是不是数字，‘0’..‘9’

考虑加入异常处理

try
p:=StrToFloat(str);
except
//报个错之类的
end;

[hansion3406]

没了...

[goodloop]

isnumeric(c:char);
不合适的

[chutian]

uses Dialogs;
var

I, Code: Integer;
begin
{ Get text from TEdit control }
Val(Edit1.Text, I, Code);
{ Error during conversion to integer? }
if Code <> 0 then
MessageDlg('Error at position: ' + IntToStr(Code), mtWarning, [mbOk], 0);
else
Canvas.TextOut(10, 10, 'Value = ' + IntToStr(I));

end;


//Val procedure

[goodloop]

用
try ...except

[wwyysha]

多谢
我在做一个接口

[lws0472]

可以做一个函数，一劳永逸

function isnum(str : string):boolean;
var
i : integer;
begin
result := true;
if length(str) < 1 then exit;
for i := 1 to length(str) do
begin
if (not isnumeric(str[i])) and (str[i] <> #46) then
begin
result := false;
exit;
end;
end;
end;

[Randy_Mic]

同意自己写函数。

[chutian]

var
str: string;
p: real;
code: Integer;
begin
Val(str, p, code);
if code <> 0 then
...
else
... //p既轉換后的值
end;