+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف امنع Tedit من تكرار عدد معين (/showthread.php?tid=1255)
كيف امنع Tedit من تكرار عدد معين - ahmedb - 07-10-2009
بسم الله الرحمان الرحيم
كيف امنع Tedit من تكرار عدد معين
أي عندما يكتب داخل Tedit مثلا الرقم 2 فلا يستطيع تكرار الرقم
وشكرا
كيف امنع Tedit من تكرار عدد معين - The Native - 18-10-2009
السلام
الطريقة التي خطرت في بالي هي التعليمة التالية :
كود :
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;ولا تنساني من صالح دعائك .
كيف امنع Tedit من تكرار عدد معين - tempuser - 19-10-2009
اكتب الكود في حدث
onkeypress
كود :
var
x : integer;
begin
x:=pos(key,Edit1.Text);
if (x>0 ) Then
showmessage('This Character is found at location# : ' + inttostr(x));
end;