2010-11-05 48 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);