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

海天一线发布于 2005-03-05 21:43， 1502 次点击

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

2 回复

ysp_19842006-04-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;

zhou2008-03-30 17:51

提示: 作者被禁止或删除内容自动屏蔽，只有管理员可见