請問用 Turbo pascal 寫程式的話, 像 delphi 中的 strtoint 相對應的函式是?

zombit 您好：    由於手邊沒有Turbo Pascal，所以忘了是否有類似的function。 因此寫了一個function供您參考。 但沒有把輸入字串作檢視，所以一定要輸入合法的數值字串。您再自行增加判斷條件來強化它的功能。 < class="code">function TPStrToInt(strValue : string) : integer; var k, toValue : integer; begin toValue := 0; for k:=1 to Length(strValue) do begin toValue := toValue * 10 ( ord(strValue[k]) - ord('0') ); end; result := toValue; end; RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####