delphi 使用OnValidate事件或OnValidating事件验证在输入字段（TEdit）中输入的值

在Delphi Firemonkey应用程序中，可以使用TEdit OnValidating和OnValidate事件来验证和修改输入的值。

可以通过更改参数Text来更改输入的值。

在Delphi XE7和更高版本中提供了OnValidating和OnValidate事件。

在TEdit中输入时，会发生OnValidating事件。

procedure TForm1.Edit1Validating(Sender: TObject; var Text: string);

begin

//从输入的值中删除“abc”

Text := Text.Replace('abc', '', [rfReplaceAll]);

end;

当焦点离开TEdit时，将发生OnValidate事件。

procedure TForm1.Edit1Validate(Sender: TObject; var Text: string);

begin

//输入的值未以“.com”结束时添加“.com”

if not Text.EndsWith('.com') then

Text := Text + '.com';

end;

推荐分享