+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اتفادى الخطأ فى هذا الكود (/showthread.php?tid=12945)
كيف اتفادى الخطأ فى هذا الكود - nnnn - 16-06-2025
كيف اصحح الخطأ فى هذا الكود
كود :
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)
);RE: كيف اتفادى الخطأ فى هذا الكود - justnick - 17-06-2025
شيل
ال
var
RE: كيف اتفادى الخطأ فى هذا الكود - nnnn - 17-06-2025
(17-06-2025, 11:28 AM)justnick كتب : شيلشيلت ال var برده فى اخطاء
ال
var
ايه الحل الاخطاء فى الصوره المرفقه
RE: كيف اتفادى الخطأ فى هذا الكود - mo7ammed - 18-06-2025
الكود يعمل بدون مشكلة في دلفي طوكيو معي، لكنه لن يعمل في دلفي 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)
);