+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إنشاء Record (/showthread.php?tid=604)
إنشاء Record - NOna - 21-02-2009
السلام عليكم
عملت 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
إنشاء Record - محمد عبد العزيز - 21-02-2009
حتى هنا صحيح
PHP كود :
type
MyRecord = Record
FileName:String;
LineNumber,
BeforLineNumber ,
AfterLineNumber : Integer;
end;
طول المتغيرات كلها معروف باستثناء 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 - NOna - 21-02-2009
طيب كيف ممكن أبدأ أدخل المعلومات من أي ملف تكست في ال Record هذا عشان أبني قاعدة بينات خاصه بي و بعد ذلك يمكن الرجوع لهذه القاعده في أي طلب