كيف امنع Tedit من تكرار عدد معين

[tempuser]

اكتب الكود في حدث

onkeypress

كود :

var x : integer; begin x:=pos(key,Edit1.Text); if (x>0 ) Then showmessage('This Character is found at location# : ' + inttostr(x)); end;