請問delphi有那個函數可以使用嗎?還是只能利用分離字元的方式一個一個去判斷是否為字串?

麻煩大家了，謝謝。

function TForm1.way(Str:string):string;
Begin
Try
StrtoInt(Str);
result:='整數';
except
Try
StrtoFloat(Str);
result:='實數';
except
result:='字串';
end;
end;
end;
===================引 用 文 章===================

請問delphi有那個函數可以使用嗎?還是只能利用分離字元的方式一個一個去判斷是否為字串?

麻煩大家了，謝謝。

會有錯誤沒錯
但是已經用例外處理了
在Delphi Run會有錯誤訊息
實際上在跑不會
不然可以試試這個
要另外宣告兩個變數

function TForm1.way2(Str:string):string;
Var i:Integer;
j:Double;
Begin
If TryStrtoInt(Str,i) then
result:='整數'
else
If TryStrtofloat(Str,j) then
result:='實數'
else
result:='字串';
end;

非常謝謝你，問題已解決了。

delphi初學者上