本文整理自网络,侵删。
在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;
相关阅读 >>
Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置
Delphi 接口尚未调用尚未调用coinitialize解决办法
更多相关阅读请进入《Delphi》频道 >>