خطأ في الكود if key = a..z then ؟

[kachwahed]

هل يعتبر هذا الكود الذي وشعته صحيح اخي ؟

PHP كود :

if( key in ['a'..'z'] )  and ( key in ['A'..'Z'] ) 


ألا يجب استخدام الكلمة or بدل من استخدام كلمة and ؟

لأن عند استخدام ال and يجب ان يتحقق كلا الشرطين...

أولا: معك حق أخي هذا الكود هو لشرط يتحقق إذا تم الضغط على أحد الأحرف الصغيرة وفي نفس الوقت أحد الأحرف الكبيرة وهذا لا يمكن أن يتحقق؟؟؟

والصواب أن يكتب:

PHP كود :

if( key in ['a'..'z'] )  or ( key in ['A'..'Z'] ) then 


ثانيا: لقد قدم الأخ المشرف الكود المختصر وهو الذي أراه مناسبا:

PHP كود :

if UpCase(key) in ['A'..'Z'] then
    ShowMessage('it is a : '+key); 


اما الثانية فشوي معقدة :eek:
يعني ماذا يفعل

PHP كود :

UpCase(key) 


هو للأحرف الكبار ؟
طيب ما هو العكس ؟

تستعمل UpCase لتحويل الحرف (Char) إلى حرف كبير، وهناك دوال كثيرة مشابهة لها.
والعكس هو LowerCase لكنها تستعمل مع العبارات النصية (String) وبالتالي يكون استعمالها كما يلي:

PHP كود :

if  pchar(LowerCase(key))^ in ['a'..'z'] then
    ShowMessage('it is a : '+key); 


والنتيجة هي نفسها.

ثانيا ما فائدة الكود

PHP كود :

UpCase(key) 


ان كان هناك يوجد

PHP كود :

in ['A'..'Z'] 


التي تشير الى احرف كبار؟

طبعا لا فائدة منها، فإذا استعملت UpCase يمكنك الاستغناء عن الشرط الثاني.
.

نعم اخواني بارك الله فيكم...

اذا اردت انا انه مثلا عند الضغط على اي زر في الكيبورد يكون حرفا فسيتم اظهار
showmessage الى المستخدم...

وإذا أردت إدراج الرموز (مثل: ~#/*-+$^ù*...)، إليك هذا الكود:

PHP كود :

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9']) then
    ShowMessage('it is a : '+key);
end; 


وإذا أردت كل الحالات السابقة، استعمل هذا الكود:

PHP كود :

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  case UpCase(key) of
  'A'..'Z': ShowMessage(key + ' is a letter');
  '0'..'9': ShowMessage(key+' is a Number');
  else ShowMessage(key+' is a Symbole');
end;
end; 


والسلام عليكم.