首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; $[SysUtils.pas

功能 返回字符串S转换成六十四位整数Value是否成功

说明 字符串非六十四位整数表达时返回False并且Value将输出为0

参考 procedure System.Val

例子

///////Begin TryStrToInt64

procedure TForm1.Button1Click(Sender: TObject);

var

I: Int64;

begin

CheckBox1.Checked := TryStrToInt64(Edit1.Text, I);

SpinEdit1.Value := I;

end;

///////End TryStrToInt64