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

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

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

مُساهمة  ali1 في 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;

_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali1
مبرمج مجتهد

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

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

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


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