异常处理问题

Question

如果edit输入错误，将不能赋值，程序出错，写个异常处理，抛出个提示procedure TForm1.TXLabelEditKeyPress(Sender: TObject; var Key: Char);
if not(key in['0'..'9',#8,#45,#46,#13,#32]) then
   begin
    key:=#0;
  
   end;   if (key=#13) or (key=#32) then
   begin      Nodes:= Engine.Nodes;
     Node:= Nodes.Item[shape];
     TranslationField:= Node.Fields.Item['translation'];
    TranslationField.X:=StrToFloat(TXLabelEdit.Text); //如果这里为非法数字，这里将出
错，不能赋值，写个异常处理，给出个提示。这个异常要怎么写?     end;
end;

Answer 1

不用写异常处理，有更好的方法：
if TryStrToInt() then/////参数忘记怎么写了，delphi帮助文档里面有
begin
end
else begin
   //你在这里写你的提示吧
end;