إنشاء Record

[محمد عبد العزيز]

حتى هنا صحيح

PHP كود :

type
MyRecord = Record
FileName:String;
LineNumber,
BeforLineNumber ,
AfterLineNumber : Integer;
end; 


لكي يمكننا استخدامه في ملف File يجم ان يكون حجم المعلومات معروف
طول المتغيرات كلها معروف باستثناء String ولنقل مثلا 80 حرف

PHP كود :

type
MyRecord = Record
FileName:String[80];
LineNumber,
BeforLineNumber ,
AfterLineNumber : Integer;
end;

var
MyFile: File of MyRecord;
NewRecord: MyRecord;
Word1: Array [1..1000] of String;
F:Array [1..1000] of Integer; 


والسلام عليكم