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

إلى

لا أستطيع حفظ المورد إلى ملف البحث عن فروع مماثلة


Reyst   (2001-12-16 15:56) [0]

سادتي الأعزاء! أنا أكتب بلغة C ++ ، لكنني كنت بحاجة لكتابة برنامج في دلفي.
في الكود أدناه ، عند تنفيذه ، يتم "تجاهل" سطرين ،
ملحوظ !!! ، على الرغم من حقيقة أن يتم إنشاء رمز لهم
(في متصفح الكود ، يتم تمييز الخطوط بنقطة زرقاء ، يتم تعطيل التحسين).
سؤال: لماذا؟ أظن أن الكلب قد دفن في ستراتكات ،
ل لا أحسب تماما الخطوط في باسكال ،
على الرغم من التقارب الواضح ل PChar مع سلاسل "سلسلة".
(FullPath - متغير عمومي ، PChar)

وظيفة DoResource (المثيل: HModule ؛ إعادة النوع: PChar ؛
ResName: PChar؛ Param: Longint): BOOL؛ STDCALL.
فار
Res: TResourceStream؛
FileName: PChar؛
بدأ
GetMem (FileName ، 255) ؛
FileName ^: = Chr (0)؛
Res: = TResourceStream.Create (مثيل ، ResName ، إعادة نوع) ؛
!!! FileName: = StrCat (FullPath، ResName)؛
!!! Res.SaveToFile (FileName) ؛
Res.Free.
DoResource: = صحيح ؛
الغاية؛



PVR   (2001-12-16 19:35) [1]

وظيفة DoResource (المثيل: HModule ؛ إعادة النوع: PChar ؛
ResName: PChar؛ Param: Longint): BOOL؛ safacall {!!!!!!} ؛
فار
Res: TResourceStream؛
FileName: PChar؛
بدأ
GetMem (FileName ، 255) ؛
محاولة
FileName ^: = Chr (0)؛
مع TResourceStream.Create (مثيل ، ResName ، إعادة نوع) القيام به
محاولة
!!! FileName: = StrCat (FullPath، ResName)؛
!!! SaveToFile (FileName) ؛
أخيرا
Res.Free.
ينتهي.
DoResource: = صحيح ؛
أخيرا
freemem (اسم الملف) ؛
نهاية
الغاية؛



MrBeer   (2001-12-16 19:54) [2]

// ......
FileName: = StrAlloc (512) ؛
Res: = TResourceStream.Create (مثيل ، ResName ، إعادة كتابة)
StrCopy (FileName ، FullPath) ؛
StrCat (FileName ، ResName) ؛
Res.SaveToFile (StrPas (FileName)) ؛
Res.Free.
StrDispose (FileName) ؛
// ......



MrBeer   (2001-12-16 19:59) [3]

+ zhelatelno

vmesto StrCat polzovatj StrLCat و محاولة كتلة sdelatj.

مع أطيب التحيات.



Reyst   (2001-12-16 20:03) [4]

> MrBeer.
وهكذا كان كذلك. لقد أزلت كل شيء إلى الحد الأقصى أثناء البحث عن خلل.
شكرا لك!



PVR   (2001-12-16 22:22) [5]

وظيفة DoResource (المثيل: HModule ؛ إعادة النوع: PChar ؛
ResName: PChar؛ Param: Longint): BOOL؛ safecall {!!!!!!} ؛
فار
اسم الملف: سلسلة ؛
بدأ
GetMem (FileName ، 255) ؛
محاولة
FileName: = ""؛
مع TResourceStream.Create (مثيل ، ResName ، إعادة نوع) القيام به
محاولة
!!! FileName: = سلسلة FullPath + (ResName) ؛
!!! SaveToFile (FileName) ؛
أخيرا
Res.Free.
الغاية؛
DoResource: = صحيح ؛
أخيرا
freemem (اسم الملف) ؛
النهاية
الغاية؛



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

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

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





الذاكرة: 0.56 ميغابايت
الوقت: 0.024 ج
1-22203
T2
2001-12-16 07:07
2002.01.08
اصطياد الخطأ غياب msWord


3-21962
phantom2040
2001-12-04 13:27
2002.01.08
تحديد عامل التصفية في TDStringGrid


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


14-22320
الكسندر
2001-11-14 14:13
2002.01.08
نجاح باهر


3-21927
Aleks_Vl
2001-12-04 09:47
2002.01.08
DTS + دلفي





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