[讨论][原创]有个问题，先谢谢大家了！

海天一线

新手上路

Rank: 1

帖子: 7
精华: 0
性别: 男
注册时间: 2005-2-8

1^# 大中小发表于 2005-3-5 21:43 只看该作者

[讨论][原创]有个问题，先谢谢大家了！

用DELPHI编程时，加入一个edit栏，我想控制它输入的数字不能相同，请问要怎么做！

搜索更多相关主题的帖子: 数字 DELPHI edit

TOP

ysp_1984

中级会员

Rank: 3 Rank: 3

帖子: 371
精华: 0
性别: 男
注册时间: 2006-1-5

2^# 大中小发表于 2006-4-25 11:15 只看该作者

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
i:integer;
str:string;
begin
str:=edit1.text;
for i:=1 to length(str) do
begin
if key=str[i] then key:=#0;
end;
end;

心中的那片蓝天,永远为你而存在... ...

TOP

zhou

禁止发言

帖子: 429
精华: 0
性别: 女
注册时间: 2006-6-16

3^# 大中小发表于 2008-3-30 17:51 只看该作者

提示: 作者被禁止或删除内容自动屏蔽

TOP

‹‹ 上一主题 | 下一主题 ››