+- الفريق العربي للهندسة العكسية (https://www.at4re.net/f)
+-- قسم : منتديات الهندسة العكسية - Reverse Engineering Forums (https://www.at4re.net/f/forum-4.html)
+--- قسم : الأسئلة والإستفسارات، حلول المشاكل و تبادل الخبرات - Expert Exchange Newbie Questions Answers (https://www.at4re.net/f/forum-36.html)
+--- الموضوع : كيف اتخلص من ' Is Not Valid Integer Value (/thread-1385.html)
كيف اتخلص من ' Is Not Valid Integer Value - Polia - 24-01-2020
كيف اتخلص من هاته الرسالا التي ازعجتني
صور في المرفقات
اريد وضع شرط if علما ان الحقل لا يستقبل الا رقم فعند ادخال حرف او اي ASCII عدا الأرقام يخرج لليوزر ايرور يخبره بادخال ارقام لا غير و العكس صحيح واعدروني لكثرة ااسئلتي
حاليا انا احوم علي موقع CRACKME.DE
انزل برامج واحاول دراستها فان لم استطع استعن بالحلول الموضوعة احاول دراستها مرة اخري وفهمها وبرمجة كيغن لها اضرب عصفورين بحجر التنقيح و البرمجة ما رايكم شباب اجتاج تحفيزكم
RE: كيف اتخلص من ' Is Not Valid Integer Value - TeRcO - 24-01-2020
تفضل.... أرجو ان يكون المطلوب:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['A'..'Z', 'a'..'z']) then
begin
ShowMessage('Plz ..Use Only Letters');
Key := #0;
end;
end;
////////////////////////////////////////////////////////////////
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9']) then
begin
ShowMessage('Plz ..Use Only Numbers');
Key := #0;
end;
end;
////////////////////////////////////////////////////////////////
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['A'..'Z', 'a'..'z',' ','0'..'9']) then
begin
ShowMessage('Plz ..Use Only Letters and Numbers');
Key := #0;
end;
end;
RE: كيف اتخلص من ' Is Not Valid Integer Value - Polia - 30-01-2020
(24-01-2020, 04:05 PM)TeRcO كتب : فضل.... أرجو ان يكون المطلوب:
شكرا لك عزيزي