دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

مثال دلفي حول القوائم

اذهب الى الأسفل

مثال  دلفي حول القوائم Empty مثال دلفي حول القوائم

مُساهمة  ali 23/5/2018, 2:27 pm


بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله وعلى آله صحبه أجمعين


مثال دلفي حول القوائم

هذا المثال حول الايام الاسبوع اذا ادخلت اسم اليوم باللغة الانجليزية يتم عرضه باللغة العربية


الكود:

type
  Weekday = (saturday, sunday, monday, tuesday,
        wednesday, thursday, friday);

var today: Weekday;
  s: string;
  i: integer;
  ch: char;

begin

  s := LowerCase(Edit1.Text);
      if  s = 'monday' then today := monday
  else if  s = 'tuesday' then today := tuesday
  else if  s = 'wednesday' then today := wednesday
  else if  s = 'thursday' then today := thursday
  else if  s = 'friday' then today := friday
  else if  s = 'saturday' then today := saturday
  else if  s = 'sunday' then today := sunday;

  case today of
    saturday    : caption := ' اليوم هــو السبت .';
    sunday  : caption := '  اليوم هــو الاحد .';
    monday : caption := '  اليوم هــو الاثنين .';
    tuesday  : caption := '  اليوم هــو الثلاثاء .';
    wednesday    : caption := '  اليوم هــو الاربعاء .';
    thursday  : caption := '  اليوم هــو الخميس .';
    friday    : caption := '  اليوم هــو الجمعة .';
    else caption := ' ليس من أيام الاسبوع .';
  end;

ali
مبرمج مجتهد

عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى