مثال دلفي حول القوائم
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
مثال دلفي حول القوائم
بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله وعلى آله صحبه أجمعين
مثال دلفي حول القوائم
هذا المثال حول الايام الاسبوع اذا ادخلت اسم اليوم باللغة الانجليزية يتم عرضه باللغة العربية
- الكود:
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
مواضيع مماثلة
» مثال vc++ حول القوائم
» عملية البحث في قواعد البيانات -دلفي- مثال بسيط
» كتاب في دلفي غاية في روعة ويعتب مرجع في لغة البرمجة دلفي
» القوائم List وما هي الفائدة منها والحلقة for each
» مثال عن برنامج قاعدة بيانات
» عملية البحث في قواعد البيانات -دلفي- مثال بسيط
» كتاب في دلفي غاية في روعة ويعتب مرجع في لغة البرمجة دلفي
» القوائم List وما هي الفائدة منها والحلقة for each
» مثال عن برنامج قاعدة بيانات
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى