2010-11-05 52 views

回答

8

的是程序的Val:

procedure Val(S; var V; var Code: Integer); 

這個過程對小數和實數操作。

Parmeters:

  • 小號字符序列;爲了正確的轉換,它必須包含'+',' - ',',','。','0'...'9'。
  • V轉換的結果。如果結果是一個整數,那麼S不能包含',','。'。
  • C從S中返回字符的位置,中斷轉換。

使用案例:

Var Value :Integer; 

Val('1234', Value, Code); // Value = 1234, Code = 0 
Val('1.234', Value, Code); // Value = 0, Code = 2 
Val('abcd', Value, Code); // Value = 0, Code = 1 
1

您可以使用Val函數。

例子:

var 
    sNum: String; 
    iNum: Integer; 
    code: Integer; 

begin 
    s := '101'; 
    Val(s, iNum, code); 
end. 
1

你想Val()

0
Textval := '123'; 
    Val(Textval, Number, Code) ---> Code = 0, Number = 123 

    Textval := '12345x2'; 
    Val(Textval, Number, Code) ---> Code = 6, Number remains unchanged; 

瓦爾(TextVal,數字,代碼),它將字符串轉換成數字。如果可能,代碼= 0的結果爲 ,選擇錯誤指示編號。

1

您可以使用這樣的,

var 

i: integer; 
s: string; 
begin 
str(i, s); 
write(i);