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

إلى

سؤال إلى pascalshchik ؟؟؟ البحث عن فروع مماثلة


Art   (2001-12-18 17:19) [0]

يقوم برنامج التحويل البرمجي برمي خطأ متغير غير محدد متوقع ، ويشير إلى المكان في البرنامج حيث يتم ضرب ثوابتين ؟؟ ما الأمر ؟؟؟



Владислав   (2001-12-18 17:20) [1]

المتغير غير المحدد يعني المتوقع: معرف المتغير المتوقع.

استخلاص النتائج.

أعط الكود



Art   (2001-12-18 17:23) [2]

System.Move (grecFixedDiskBoot، gsTempInput [1]، aMaxTpStrLen)؛
gsTempInput [0]: = System.Char (aMaxTpStrLen)؛
IF (System.Pos (asCopyrightNotice، gsTempInput) <> 0)
ثم تبدأ
System.WriteLn (asProgramPrompt + asProgram +
"تم العثور على أداة التحميل على القرص الثابت 0.")؛
System.Write (asProgramPrompt +
"نسخ سلاسل الوصف من نسخة مثبتة (Y / N):")؛
System.ReadLn (gsTempInput) ؛

IF (System.UpCase (_fnchGetFirstChar (gsTempInput)) <> achNo)
ثم تبدأ
System.WriteLn (asProgramPrompt + "نسخ سلاسل الوصف.") ؛
System.Move (System.Mem [System.Seg (grecFixedDiskBoot.dbReservedCode):
(System.Ofs (grecFixedDiskBoot.dbReservedCode) + aOS_Desc_Start)] ،
("يُظهر الثوابت هنا) aOS_Desc_Str_Len_Ext * aMaxAvailLogicalPartition)؛
النهاية؛
{إذا، ثم}
END
ELSE
System.WriteLn (asProgramPrompt + asProgram + "أداة التحميل غير موجودة.") ؛
{إذا، ثم}



Владислав   (2001-12-18 17:26) [3]

أعلن متغير. اعطائها معنى. تمر في الإجراء.
غالبًا ما يتوقع الإجراء معلمة حسب المرجع ، وتمرير القيمة.



MBo   (2001-12-18 18:40) [4]

هل تحتاج إلى القولون هناك؟



Иван Шихалев   (2001-12-18 18:52) [5]

ماذا بحق الجحيم هو القولون؟ نحن نأخذ كتابًا للصفوف الابتدائية ونبدأ في معرفة كيف تختلف قيم المعلمات ومتغيرات المعلمات. من المفيد أيضًا البحث في المساعدة ومعرفة المعلمات التي يحتوي عليها الإجراء. تحرك وكم منهم.



Anatoly Podgoretsky   (2001-12-18 20:06) [6]

يبدو لي أن المشكلة هنا
"(" هذا يدل على الثوابت هنا) "هو متغير؟ ثم أين هي الفاصلة؟
وبالتالي فإن بناء الجملة صحيح.
أعط رمز الاتصال الدقيق والإعلان المتغير المستخدم في إجراء Move.



Art   (2001-12-18 20:22) [7]

يا شباب ، لقد تعرضت للتعذيب بالفعل ، وسأقدم لك الشفرة في الوقت الحالي!



Art   (2001-12-18 20:29) [8]

{* ========================== CONSTANTS PART ===================== ========= *}

CONST

{تعريفات البرنامج}
asPurpose = "OS-MultBoot"؛
asVersion = "1.30"؛
asAuthor = "ديما ستيفانكوف" ؛
asCopyright = "Copyright (c) 1987، 1993"؛
asProgram = "OS-Boot"؛
asProgramPrompt = asProgram + ":"؛

{رموز الخروج}
errTerminateOK = 0؛
errBootStrapDebug = 1؛
errBadReadFixedDisk = 2؛
errBadWriteFixedDisk = 3؛
errUserInstallAbort = 4؛
errUserWriteAbort = 5؛
errMismatchLoaderCode = 6؛

{متنوعة}
aMaxTpStrLen = 255؛
asBlank = ""؛
achHexPrefix = "$"؛
asFreeSlot = "<*** free slot ***>"؛
asNonFreeSlot = "<*** disk slot ***>"؛
aSectorSize = 512؛
aSecSizeInWords = aSectorSize DIV 2؛
aQuit = "Q" ؛
achYes = "Y" ؛
achNo = "N"؛
aDefExt = "BIN"؛
aDosExtMark = "."؛

{رموز ASCII}
achNULL = 00؛
achLF = 10؛
achCR = 13 ؛
achOne = "1"؛
achFour = "4"؛

{***** الاهتمام !!! الثابت ترميز القيم أدناه. *****}
{***** يرجى تعديل بعناية! *****}
{$ IFDEF DebugVersion}
adwBootSeg = $ 8000؛ {قطعة في 512K}
{$ ELSE}
adwBootSeg = $ 0000؛ {قطعة في 0K}
{$ ENDIF}
adwBootOfs = $ 7C00 ؛
adwRelBootOfs = adwBootOfs + aSectorSize؛
adwPartitionTable = $ 1BE؛
aPartitonEntrySize = $ 10؛
aMaxAvailLogicalPartition = 4؛
adwBootMarkOfs = adwPartitionTable +
(aPartitonEntrySize *
aMaxAvailLogicalPartition)؛
adwBootSecID = $ AA55؛

aOS_Desc_Str_Len = $ 16؛ {تم العثور على هذه القيم}
aOS_Desc_Ofs = $ 04؛ {بعد تجميع}
aOS_Desc_Start = $ 40-1 ؛ {IPL الداخلي. }
aOS_Desc_Str_Len_Ext = aOS_Desc_Str_Len + 2؛

aDebugOff = 0؛
aDebugOn = 1؛

aFarJumpOpCode = $ EA؛ {iAPX86 opcode}

aRomKbdDriver = $ 16؛ {وظائف IBM PC BIOS}
aRomDiskDriver = $ 13؛
aRomVideoDriver = $ 10؛

{استخدم من أجل التحقق من الإصدار المثبت}
asCopyrightNotice = "OS-MultBoot (C) 1992 D. Stefankov"؛


{* ======================= TYPED CONSTANTS PART ======================= === *}

النوع

{* سلاسل *}
STR2 = STRING [2] ؛
STR4 = STRING [4] ؛
STR8 = STRING [8] ؛

{* معلومات حول القرص المنطقي *}
recLogicalPartition = سجل
dbBootDriveMark: System.Byte؛ {00}
dbStartingHead: System.Byte؛ {01}
dwStartingCylSec: System.Word؛ {02}
dbOperatingSystemID: System.Byte؛ {04}
dbEndingHead: System.Byte؛ {05}
dwEndingCylSec: System.Word؛ {06}
ddPrecedingSecs: System.Longint؛ {08}
ddSecsPerPartition: System.Longint؛ {0C}
النهاية؛
{* recLogicalPartition *}

{* قطاع التمهيد الرئيسي *}
recMasterBoot = سجل
dbReservedCode: ARRAY [0..adwPartitionTable-1] OF
System.Byte. {000}
recDiskPartitionsTable: ARRAY [0..aMaxAvailLogicalPartition-1] of
recLogicalPartition. {1BE}
dwValidBootRecID: System.Word؛ {1FE}
النهاية؛
{* recMasterBoot *}


{* ============================ VARIABLES PART ==================== ========= *}

VAR

grecFixedDiskBoot: recMasterBoot؛
gfOutStream: FILE OF recMasterBoot؛
gsTempInput: STRING؛
gdwOurBootRecLen: System.Word؛
gdwMemOfs: System.Word؛
gbStatusOk: System.Boolean؛
gdbIndex: System.Byte؛
gchIn: System.Char؛





Anatoly Podgoretsky   (2001-12-18 20:30) [9]

من الأفضل أن تبدأ بهذا ، لكنك لا تحتاج إلى كل الشفرة ، فقط للتنقل والإعلانات المتغيرة اللازمة.



Art   (2001-12-18 20:33) [10]

System.Move (grecFixedDiskBoot، gsTempInput [1]، aMaxTpStrLen)؛
gsTempInput [0]: = System.Char (aMaxTpStrLen)؛ - يتخطى هذا الخط يعني كل المعلمات!



Art   (2001-12-18 20:39) [11]

الانتقال من وحدة SYSUTILS



Anatoly Podgoretsky   (2001-12-18 20:54) [12]

إذن أي من الحركتين يقسم المترجم؟
حسنًا ، لا تسحب المعلومات منك ، فستتعب قريبًا.



Иван Шихалев   (2001-12-18 21:06) [13]

> تخطي هذا الخط يعني كل المعلمات!

System.Move (grecFixedDiskBoot، gsTempInput [1]، aMaxTpStrLen)؛

هناك ثلاثة معايير

System.Move (System.Mem [System.Seg (grecFixedDiskBoot.dbReservedCode): (System.Ofs (grecFixedDiskBoot.dbReservedCode) + aOS_Desc_Start)] ، aOS_Desc_Str_Len_Ext * aMaxAvailLogicalPartition)؛

هناك نوعان من المعلمات

> الانتقال من وحدة SYSUTILS

ماذا يعني هذا؟



Art   (2001-12-18 21:07) [14]

الانتقال من وحدة SYSUTILS



Art   (2001-12-18 21:10) [15]

حسنا ، مطرقة على وحدة!
System.Move (System.Mem [System.Seg (grecFixedDiskBoot.dbReservedCode): (System.Ofs (grecFixedDiskBoot.dbReservedCode) + aOS_Desc_Start)] ،

aOS_Desc_Str_Len_Ext * aMaxAvailLogicalPartition)؛ - يقسم في هذه القطعة!



Art   (2001-12-18 21:12) [16]

الناس! سيكون الأمر أسهل للجميع إذا كان شخص ما يعرف مكان الحصول على مصدر أداة تحميل التشغيل !!



Anatoly Podgoretsky   (2001-12-19 00:05) [17]

كان من الضروري أنه لم يكن هناك اثنين ، ولكن ثلاثة معايير !!!



Владислав   (2001-12-19 07:44) [18]

> الفن © (18.12.01 21: 12)

سيكون الأمر أسهل إذا لم تقم "بإثارة الماء" :-)

هنا هو إعلان الإجراء:
الإجراء نقل (const المصدر ؛ فار Dest ؛ العد: عدد صحيح) ؛

وهنا كيف يمكنك استخدامه:
System.Move (System.Mem [System.Seg (grecFixedDiskBoot.dbReservedCode): (System.Ofs (grecFixedDiskBoot.dbReservedCode) + aOS_Desc_Start)]، aOS_Desc_Str_Len_Ext *)

البحث عن الاختلافات ...

سيكون الأمر أسهل للجميع إذا كان شخص ما يعرف مكان الحصول على مصدر أداة تحميل الإقلاع!

"من فضلك أعطني بعض الماء لأشربه ، وإلا فأنا أريد أن آكل الكثير بحيث لا يوجد مكان للنوم."

حظا سعيدا.



Арт   (2001-12-19 13:47) [19]

حسنا ، آسف ، شكرا لكم جميعا!



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

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

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





الذاكرة: 0.62 ميغابايت
الوقت: 0.031 ج
1-22256
المشي الاستبيان
2001-12-15 08:50
2002.01.08
قراءة القيم من ملف INI


1-22072
يبلغ من
2001-12-19 11:08
2002.01.08
كيفية إنشاء مثيل TFrame الطفل بشكل حيوي


3-21959
نيكولاييف كونستانتين
2001-12-04 20:54
2002.01.08
خطأ في تفعيل TTable ؟؟


3-21915
KAA
2001-12-04 10:28
2002.01.08
إعادة تعيين متغير MSSQL2000


4-22458
اياكس
2001-10-31 17:50
2002.01.08
TColor و RGB





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