procedure TForm1.Edit1Exit(Sender: TObject); begin if dbedit.text....... end;
DBEDIT会自己检查格式 要自己额外加的话就用onexit
最好在提交数据时在检查!!在ONEXIT中好象不行!!
我用的时DbEdit组件,对应的字段的类型时DateTime,我想在用户输入完后检查所输入的格式是否正确(虽然会自动检查,但会产生EConvertError),如果不是则提示重新输入。我的代码是 procedure TEditusers.DBEdit5Exit(Sender: TObject); begin try except on EConvertError do ShowMessage('你输入的日期格式不对。请你按"年-月-日"(如:2000-01-01)格式重新输入'); end; end;可是还是达不到预期的功能。 望各位指点指点。谢谢
begin
if dbedit.text.......
end;
要自己额外加的话就用onexit
procedure TEditusers.DBEdit5Exit(Sender: TObject);
begin
try
except
on EConvertError do
ShowMessage('你输入的日期格式不对。请你按"年-月-日"(如:2000-01-01)格式重新输入');
end;
end;可是还是达不到预期的功能。
望各位指点指点。谢谢