delphi - 使用Pascal脚本验证字符串字符为数字(FastReport 4)

Question

我是Pascal和FastReport的新手。在不了解FastReport的情况下，可能会回答此问题。帕斯卡是德尔福。 FastReport4。编辑：我正在使用pascal脚本。

我有一个接受8字符串作为输入的文本框。每个字符应为数字。我正在尝试验证每个字符是否为数字。我试过使用val函数...

Procedure Val(S : String; var R: Real; Code : Integer);
  begin
  end;

procedure thisinputOnChange(Sender: TfrxComponent);
    var
      S     : String;
      error : Integer;
      R     : Real;    
   begin

    S := thisinput.lines.text; 
   Val (S, R, error);        
     If error > 0 then
   Button2.enabled := False;       
  end;

我在线获得了此代码。解释说，如果字符不能转换为整数，则函数将返回代码大于零的错误。那个解释正确吗？我在误解吗？

现在，如果验证失败，我试图将按钮的enabled属性设置为false。我可能会将其更改为一条消息。现在，我想通过设置button属性使其工作。

我不确定是否应该使用onChange事件或其他事件。我也不确定是否需要循环将输入发送到val函数。就像我说的，我只是在学习如何使用此功能。

我能够验证长度。此代码有效...

  procedure thisinputOnChange(Sender: TfrxComponent);

  begin

     if length(thisinput.lines.text) = 8 then          
        Button2.enabled := True;

  end;  

有什么建议？我应该使用val函数还是其他？让我知道是否需要提供更多信息。不过，我可能要等到以后再进行检查。
谢谢你的帮助。

Answer 1

您没有指定Delphi版本。从Delphi 2009开始，您可以设置TEdit的NumbersOnly属性以将输入限制为数字。