منزل
Top.Mail.Ru Yandeks.Metrika
المنتدى: "Main";
الأرشيف الحالي: 2002.07.25;
تنزيل: [xml.tar.bz2];

إلى

قراءة الملف البحث عن فروع مماثلة


Andy BitOff   (2002-07-12 15:43) [0]

مرحبا
المهمة هي على النحو التالي. من الضروري قراءة الملف النصي بأكمله (ملف <1 ميجا بايت) في متغير سلسلة الكتابة.
إليكم ما كتبت:
فار
...
OpisFile: string؛
opfi: PChar؛
بدأ
...
Hf: = FileOpen (selfile ، fmOpenRead أو fmShareDenyWrite) ؛
size: = GetFileSize (Hf، nil)؛
GetMem (opfi ، الحجم) ؛
FileRead (hf ، OpFi ، الحجم) ؛
OpisFile: = OpFi؛
...

لذلك هنا. إنه لا يعمل :( في السطر الأخير ، سقط البرنامج ، لقد أجرى البرنامج عملية غير صالحة ... أخبرني ، من فضلك ، ما هو خطأي ، أو حل المشكلة.



BAY   (2002-07-12 15:46) [1]

OpisFile: = StrPas (OpFI)



MBo   (2002-07-12 15:48) [2]

OpisFile: string؛
بدأ
...
Hf: = FileOpen (selfile ، fmOpenRead أو fmShareDenyWrite) ؛
size: = GetFileSize (Hf، nil)؛
SetLength (OpisFile ، الحجم) ؛
FileRead (hf ، OpisFile [1] ، الحجم) ؛
...



Viewer   (2002-07-12 15:59) [3]

أو
fsR: TFileStream؛
len: int64؛
s: string؛
..

fsR: = TFileStream.Create (FileName، fmOpenRead)؛
len: = fsR.Size؛
SetLength (S ، لين) ؛
fsR.Read (S [1]، cnt)؛
...
إذا كان fsR <> nil ، ثم FreeAndNil (fsR) ؛



صفحات: 1 فرع كامل

المنتدى: "Main";
الأرشيف الحالي: 2002.07.25;
تنزيل: [xml.tar.bz2];

الطابق العلوي





الذاكرة: 0.55 ميغابايت
الوقت: 0.019 ج
1-81357
الكسندر
2002-07-13 18:04
2002.07.25
TCaption في كلمة


14-81441
شوبين
2002-06-27 16:24
2002.07.25
بحاجة الى عنصر


1-81364
Fissher
2002-07-13 21:48
2002.07.25
PageControl


1-81351
Pavel_Man
2002-07-12 00:09
2002.07.25
الفرق في تنفيذ دلل في Win95 / 98 و Win2000 / NT


14-81435
بري
2002-06-27 14:47
2002.07.25
تلميح في دلفي (W2K ، D6)





الأفريكانية الألبانية عربي الأرميني أذربيجان الباسكي البيلاروسية Bulgarian التشيكية الصينية المبسطة) تقاليد صينية) الكرواتية التشيكية دانماركي Dutch English الإستونية الفلبينية Finnish جيب
الجاليكية الجورجية الألمانيّة اليونانيّة الكريولية الهايتية اللغة العبرية الهندية الهنغارية أيسلندي Indonesian الأيرلندية Italian اليابانيّة الكوريّة اللاتفية اللتوانية المقدونية الملايو المالطية Norwegian
اللغة الفارسية بولنديّة البرتغاليّة رومانية Russian صربي السلوفاكيّة سلوفيني إسباني السواحيلي Swedish Thai التركية الأوكراني الأردية الفيتنامية ويلزي اليديشية البنغالي البوسنية
السيبيونو الاسبرانتو الغوجاراتية الهوسا همونغ الإيبو جاوي الكانادا الخمير لاو لاتينية الماوري المهاراتية المنغولية النيبالية البنجابية الصومالية التاميل التيلجو اليوروبا
زولو
Английский Французский ألماني Итальянский البرتغالية Русский Испанский