دخول

nnnn

كيف اصحح الخطأ فى هذا الكود

كود :
SysUtils, DateUtils;
type
  THoliday = record
    Name: string;
    Month: Integer;
    Day: Integer;
  end;
const
  HolidaysCount = 10;
var
  Holidays: array[1..HolidaysCount] of THoliday = (
    (Name: 'عيد الميلاد المجيد'; Month: 1; Day: 7),
    (Name: 'عيد الشرطة / ثورة يناير'; Month: 1; Day: 25),
    (Name: 'عيد تحرير سيناء'; Month: 4; Day: 25),
    (Name: 'عيد العمال'; Month: 5; Day: 1),
    (Name: 'عيد ثورة 30 يونيو'; Month: 6; Day: 30),
    (Name: 'عيد ثورة 23 يوليو'; Month: 7; Day: 23),
    (Name: 'عيد القوات المسلحة'; Month: 10; Day: 6),
    (Name: 'عيد الفطر (تقريبي)'; Month: 4; Day: 10),
    (Name: 'عيد الأضحى (تقريبي)'; Month: 6; Day: 16),
    (Name: 'رأس السنة الهجرية (تقريبية)'; Month: 7; Day: 7)
  );

justnick · 17-06-2025, 11:28 AM

شيل
ال
var

nnnn

(17-06-2025, 11:28 AM)justnick كتب : شيل
ال
var

شيلت ال var برده فى اخطاء
ايه الحل الاخطاء فى الصوره المرفقه

mo7ammed

الكود يعمل بدون مشكلة في دلفي طوكيو معي، لكنه لن يعمل في دلفي 7، حيث لا يوجد دعم ل : constant arrays of records
جرب الكود التالي بدلاً منه (لم اجربه حيث لا املك دلفي 7):

كود :
type
  THoliday = record
    Name: string;
    Month: Integer;
    Day: Integer;
  end;

const
  HolidaysCount = 10;

var
  Holidays: array[1..HolidaysCount] of THoliday = (
    (Name: 'عيد الميلاد المجيد'; Month: 1; Day: 7),
    (Name: 'عيد الشرطة / ثورة يناير'; Month: 1; Day: 25),
    (Name: 'عيد تحرير سيناء'; Month: 4; Day: 25),
    (Name: 'عيد العمال'; Month: 5; Day: 1),
    (Name: 'عيد ثورة 30 يونيو'; Month: 6; Day: 30),
    (Name: 'عيد ثورة 23 يوليو'; Month: 7; Day: 23),
    (Name: 'عيد القوات المسلحة'; Month: 10; Day: 6),
    (Name: 'عيد الفطر (تقريبي)'; Month: 4; Day: 10),
    (Name: 'عيد الأضحى (تقريبي)'; Month: 6; Day: 16),
    (Name: 'رأس السنة الهجرية (تقريبية)'; Month: 7; Day: 7)
  );

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة