घर
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.82 एमबी
समय: 0.034 c
3-21960
Alenka
2001-12-05 12:53
2002.01.08
मदद कृपया!


14-22369
विक्टर त्सय
2001-11-08 09:11
2002.01.08
डेल्फी संपादक में पाठ के ब्लॉकों को कैसे स्थानांतरित किया जाए?


14-22327
fliz
2001-11-05 15:39
2002.01.08
और वे कहते हैं कि परसों छुट्टी है?


1-22232
T2
2001-12-16 07:24
2002.01.08
WIN386.SWP


6-22300
evgen_2001
2001-10-04 12:25
2002.01.08
संदेश पोस्ट कर रहा है





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