有沒有測試數字的函數可用 ?

引言:有沒有測試數字的函數可用 ?

class="code"> try StrToFloat(s); ShowMessage('a number'); except ShowMessage('not a number'); end;

沒有一個函數可以做到嗎?

引言:沒有一個函數可以做到嗎?

class="code">function IsNumber(const s: string): boolean; begin try StrToFloat(s); Result := True; except Result := False; end; end;

做了個測試, 但不行呢~ s:='a'; try strtofloat(s); ShowMessage('True'); except ShowMessage('False'); end; 彈出下面 Error Message : Project Project1.exe raised exception class EConvertError with message "a'is not a valid floating point value'. 我是用 Delphi 7 的, 為什麼會這樣 ?

你好： 其實有一個程序可以完成你的需求，範例如下：

var 
   s : string;
   Num, RetCode: Integer;
begin
   s := 'asa';   
   Val (s, Num, RetCode);
   if RetCode <> 0 then
      ShowMessage('False')
   else
     ShowMessage('True');
end;

ps : Val 詳細用法請看 Help < src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">

引言: 做了個測試, 但不行呢~ s:='a'; try strtofloat(s); ShowMessage('True'); except ShowMessage('False'); end; 彈出下面 Error Message : Project Project1.exe raised exception class EConvertError with message "a'is not a valid floating point value'. 我是用 Delphi 7 的, 為什麼會這樣 ?

使用 try .. except, 但在 IDE 內會跳出 Exception 訊息是正常的 只要直接執行 exe 檔就不會 若不想在 IDE 內跳出 Exception 訊息 在 Project -> Debugger Options 的 Language Exceptions 頁中 底下有個 Stop on Delphi Exceptions 的 CheckBox 取消即可. --- 每個人都是一本書

hagar, 你真是很棒呢~ 根本上我遇到的問題你都能夠完全明白並給予簡潔的答案, 十分感謝您~ 

哇! 這題怎麼會給小弟分呢？< >< > 另外, 有些最好親自去試試, 這樣收穫會比較大 不是每次都會有人給你魚的! --- 奉行寶蘭主義 服從天使領導 保衛各版安全 完成KTop大業

haha .. 這題是給錯的, 本想給 william , 但不知如何改動 Delphi 我是初學者, 對於它的操作和編程等都很不熟識, 又找不到一本好書. 所以只好硬著頭皮發問, 但我遇到問題時都會去究研一番後才發問的呢~

引言: hagar, 你真是很棒呢~ 根本上我遇到的問題你都能夠完全明白並給予簡潔的答案, 十分感謝您~ < face="Verdana, Arial, Helvetica"> 更简单的： var TestInt: integer; begin if TryStrToInt('35434', TestInt) then ShowMessage('true') else showMessage('Fals'); end; 其实 有很多转换函数都有相应的 Try... 函数的 ==================== 交流是进步的良师 批评是成长的益友

vernon, "給錯分?", 您真是有意思...

我想給你們一個叫複雜的範例...每一個TEdit都可以用同一個Event喔 //保留0,1,2,3..9, 小數點 , 還有 chr(8)=Delete , chr(46)=BackSpace , 其他都不欲理會 ! procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if ((Key<'0') or (Key>'9') or (Key>'.')) and (Key<>chr(8)) and (Key<>chr(46)) then abort; end; procedure TForm1.Edit1Exit(Sender: TObject); begin if Sender.ClassType = TEdit then (Sender as TEdit).Text := CheckNum((Sender as TEdit).Text,-1); //取到小數第一位 end; use math; //檢查數字(要檢查的數字文字,要四捨五入到第幾位) Function TForm1.CheckNum(Const SourStr:string;To45 : integer):string; var NumF : string begin SetRoundMode(rmDown); //要四捨五入 try NumF := FloatToStr(SimpleRoundTo(StrToFloat(trim(SourStr)),To45)); Result := NumF; Except on EconvertError do begin if length(trim(SourStr)) >0 then MessageDlg(pchar('不合法的數字格式!'), mtinformation, [mbok], 0); Result := '0'; end; end; end;

您是不是在debug的模式下Run程式 直接執行就不會了

引言: 做了個測試, 但不行呢~ s:='a'; try strtofloat(s); ShowMessage('True'); except ShowMessage('False'); end; 彈出下面 Error Message : Project Project1.exe raised exception class EConvertError with message "a'is not a valid floating point value'. 我是用 Delphi 7 的, 為什麼會這樣 ?

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.