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

[ahmedb]

بسم الله الرحمان الرحيم

كيف امنع Tedit من تكرار عدد معين
أي عندما يكتب داخل Tedit مثلا الرقم 2 فلا يستطيع تكرار الرقم
وشكرا

[The Native]

السلام
الطريقة التي خطرت في بالي هي التعليمة التالية :

كود :

var Form1: TForm1; Tow : Boolean = False; implementation {$R *.dfm} procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin If Tow = True Then If Key = '2' Then ShowMessage('áÇ íÌÈ ÃßËÑ ãä ãÑøÉ'); If Key = '2' Then Tow := True; If Tow = True Then end;

اكتبها في البرنامج ولا تنسى تغيير نص رسالة الخطأ .
ولا تنساني من صالح دعائك .

[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;