如何做到啊
解决方案 »
- webbrowser高级控制Content-Type问题
- 我电脑上的时间是2002年,月份一样,点数慢一个小时,在电脑上改不了,请问是怎么回事,用什么方法改正它
- Delphi中Flash播放ActiveX控件ShockwaveFlash的问题![急]
- C/S 问题
- 急~~~dbf文件中文显示乱码,如何处理?
- 关于sql server 转换成文件型数据库
- (高分求救)求教超市用的最便宜的微型打印机的信息,回答就有分(前提条件质量要好)
- 一个关于数据库的设计????
- 綱絡主控站死了,我欲哭----無淚!
- 有没有那位有一些漂亮的ico或bmp?
- delphi sqlite数据库如何取相对路径?因为不支持中文
- dbgrideh 控制数据修改
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
try
if (strtoint(edit1.text)<1) or (strtoint(edit1.text)>255) then
edit1.Clear;
except on e:exception do
begin
showmessage(e.message);
end;
end;
end;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8,#13]) then key :=#0;
if key=#13 then
begin
try
if (strtoint(edit1.text)<1) or (strtoint(edit1.text)>255) then
begin
edit1.Clear;
edit1.SetFocus;
end;
except
on e:exception do
begin
showmessage(e.message);
end;
end;
end;
end;
2、“事后”判断:内容变化或提交前校验