德尔福编辑文本整数：减号错误

Question

嗨我是Delphi的初学者。 但令我困惑的是，我有Edit1.Text 和使用StrToInt（Edit1.Text）的变量“i”; 一切都好，直到我输入减号

如果我复制/粘贴减号与数字（例如-2）它的作品 任何人都可以帮助我！ 问候，奥马尔

Answer 1

当您不是100％确定输入字符串可以转换为整数值时，使用StrToInt转换函数是不安全的。编辑框就是这样一个不安全的案例。由于您输入的第一个字符-无法转换为整数，因此您的转换失败。清除编辑框时也会发生同样的情况。为了保证这种转换的安全性，您可以使用TryStrToInt函数，该函数为您处理转换异常。您可以使用这种方式：

procedure TForm1.Edit1Change(Sender: TObject); 
var 
    I: Integer; 
begin 
    // if this function call returns True, the conversion succeeded; 
    // when False, the input string couldn't be converted to integer 
    if TryStrToInt(Edit1.Text, I) then 
    begin 
    // the conversion succeeded, so you can work 
    // with the I variable here as you need 
    I := I + 1; 
    ShowMessage('Entered value incremented by 1 equals to: ' + IntToStr(I)); 
    end; 
end; 

Answer 2

显然，你会得到一个错误，因为-不是一个整数。您可以改用TryStrToInt。