إنشاء Record

[NOna]

السلام عليكم

عملت Record كالأتي

كود :

MyRecord = Record FileName:String; LineNumber: Integer; BeforLineNumber: Integer; AfterLineNumber; end; var MyFile: File of MyRecord; NewRecord: MyRecord; Word1: Array [1..1000] of String; F:Array [1..1000] of Integer;

هل هذا الكود صحيح لعمل 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; 


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

[NOna]

طيب كيف ممكن أبدأ أدخل المعلومات من أي ملف تكست في ال Record هذا عشان أبني قاعدة بينات خاصه بي و بعد ذلك يمكن الرجوع لهذه القاعده في أي طلب