delphi4arab منتديات دلفي للعرب

السلام عليكم

عملت 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; 

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

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

delphi4arab منتديات دلفي للعرب

NOna

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

NOna