घर
Top.Mail.Ru Yandeks.Metrika
मंच: "मुख्य";
वर्तमान संग्रह: 2002.01.08;
डाउनलोड करें: [xml.tar.bz2];

नीचे

फाइल करने के लिए संसाधन नहीं बचा सके इसी तरह की शाखाएँ खोजें


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

प्रिय स्वामी! मैं C ++ में लिख रहा हूं, लेकिन मुझे डेल्फी में एक कार्यक्रम लिखने की आवश्यकता है।
नीचे दिए गए कोड में, जब दो पंक्तियों को "अनदेखा" किया जाता है,
चिह्नित !!!, इस तथ्य के बावजूद कि उनके लिए कोड उत्पन्न होता है
(कोड ब्राउज़र में, लाइनों को एक नीले बिंदु के साथ चिह्नित किया गया है, अनुकूलन अक्षम है)।
प्रश्न: क्यों? मुझे लगता है कि कुत्ते को StrCat में दफनाया गया है,
क्योंकि पास्कल में लाइनों का पूरी तरह से पता नहीं,
"स्ट्रिंग" तार के साथ PChar के स्पष्ट संबंध के बावजूद।
(FullPath - वैश्विक चर, PChar)

समारोह DoResource (उदाहरण: HModule; ResType: PChar;
ResName: PChar; परम: लोंगिंट): BOOL; stdcall;
था
Res: TResourceStream;
फाइलनेम: पी सी एच;
शुरू करना
गेटमेम (फाइलनेम, एक्सएनयूएमएक्स);
FileName ^: = Chr (0);
Res: = TResourceStream.Create (उदाहरण, ResName, ResType);
!!! FileName: = StrCat (फुलपैथ, रेसनेम);
!!! Res.SaveToFile (FileName);
Res.Free;
DoResource: = true;
अंत;



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

समारोह DoResource (उदाहरण: HModule; ResType: PChar;
ResName: PChar; परम: लोंगिंट): BOOL; safacall {!!!!!!};
था
Res: TResourceStream;
फाइलनेम: पी सी एच;
शुरू करना
गेटमेम (फाइलनेम, एक्सएनयूएमएक्स);
कोशिश
FileName ^: = Chr (0);
TResourceStream.Create (उदाहरण, ResName, ResType) के साथ करें
कोशिश
!!! FileName: = StrCat (फुलपैथ, रेसनेम);
!!! SaveToFile (FileName);
अंत में
Res.Free;
अंत;
DoResource: = true;
अंत में
freemem (फ़ाइल नाम);
अंत
अंत;



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

// ......
FileName: = StrAlloc (512);
Res: = TResourceStream.Create (उदाहरण, ResName, ResType)
StrCopy (फाइलनेम, फुलपैथ);
स्ट्रैटैट (फाइलनेम, रेजनेम);
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; ResType: PChar;
ResName: PChar; परम: लोंगिंट): BOOL; safecall {!!!!!!};
था
FileName: स्ट्रिंग;
शुरू करना
गेटमेम (फाइलनेम, एक्सएनयूएमएक्स);
कोशिश
फ़ाइलनाम: = "";
TResourceStream.Create (उदाहरण, ResName, ResType) के साथ करें
कोशिश
!!! FileName: = FullPath + string (ResName);
!!! SaveToFile (FileName);
आखिरकार
Res.Free;
अंत;
DoResource: = true;
आखिरकार
freemem (फ़ाइल नाम);
समाप्त
अंत;



पन्ने: 1 पूरी शाखा

मंच: "मुख्य";
वर्तमान संग्रह: 2002.01.08;
डाउनलोड करें: [xml.tar.bz2];

ऊपर





मेमोरी: 0.56 एमबी
समय: 0.023 c
14-22366
Vlados
2001-11-05 10:41
2002.01.08
साजिश


1-22171
धुंधला
2001-12-20 14:19
2002.01.08
क्या चमत्कार संभव है?


1-22238
T2
2001-12-16 07:29
2002.01.08
मेनू आइटम नंबर निर्धारित करें


6-22270
अजाक्स
2001-09-15 10:15
2002.01.08
मेरे पास 3 मेल के बारे में एक प्रश्न था।


1-22117
Tupnyk
2001-12-19 18:59
2002.01.08
निष्पादन योग्य के प्रक्षेपण को कैसे बाधित किया जाए?





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский