בית
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; Type Type: PChar;
ResName: PChar; Param: Longint): BOOL; stdcall;
היה
מילואים: TResourceStream;
FileName: PChar;
להתחיל
GetMem (שם קובץ, 255);
שם הקובץ ^: = Chr (0);
Res: = TResourceStream.Create (מופע, שם Res Resype, ResType);
!!! שם קובץ: = StrCat (FullPath, ResName);
!!! Res.SaveToFile (שם קובץ);
Res.Free;
DoResource: = נכון;
הסוף;



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

פונקציה DoResource (מופע: HModule; Type Type: PChar;
ResName: PChar; Param: Longint): BOOL; safacall {!!!!!!};
היה
מילואים: TResourceStream;
שם קובץ: PChar;
להתחיל
GetMem (שם קובץ, 255);
נסה
שם הקובץ ^: = Chr (0);
עם TResourceStream.Create (מופע, שם משנה, סוג מחדש) לעשות
נסה
!!! שם קובץ: = StrCat (FullPath, ResName);
!!! SaveToFile (שם קובץ);
סוף סוף
מילואים חופשי;
ח
DoResource: = נכון;
סוף סוף
freemem (שם קובץ);
ח
הסוף;



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

// ......
שם קובץ: = StrAlloc (512);
Res: = TResourceStream.Create (מופע, שם Res Resype, ResType)
StrCopy (שם קובץ, FullPath);
StrCat (שם קובץ, שם חדש);
Res.SaveToFile (StrPas (שם קובץ));
Res.Free;
StrDispose (שם קובץ);
// ......



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

+ zhelatelno

vmesto StrCat polzovatj StrLCat & לנסות חסום sdelatj.

בברכה.



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

> מר ביר.
וכך היה. פשוט הסרתי את הכל למקסימום במהלך חיפוש התקלות.
תודה לך!



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

פונקציה DoResource (מופע: HModule; Type Type: PChar;
ResName: PChar; Param: Longint): BOOL; קריאה בטוחה {!!!!!!};
היה
FileName: string;
להתחיל
GetMem (שם קובץ, 255);
לנסות
שם הקובץ: = "";
עם TResourceStream.Create (מופע, שם משנה, סוג מחדש) לעשות
לנסות
!!! שם קובץ: = מחרוזת FullPath + (ResName);
!!! SaveToFile (שם קובץ);
לבסוף
Res.Free;
הסוף;
DoResource: = נכון;
לבסוף
freemem (שם קובץ);
סוף
הסוף;



עמודים: 1 ענף שלם

פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למעלה









זיכרון: 0.57 MB
זמן: 0.024 c
14-22331
הבאסק
2001-10-26 17:57
2002.01.08
האם יש הרבה שמאלנים בקרב מתכנתים?


1-22004
קלקסה
2001-12-17 17:57
2002.01.08
תקלות


1-22099
יוליאשקה
2001-12-19 17:43
2002.01.08
שאלה לגבי DBGrid !!


1-22103
ProfiUgl
2001-12-19 17:15
2002.01.08
טופס אירוע


3-21947
דייהארד
2001-12-05 13:18
2002.01.08
אחזור רשימת אינדקס מטבלת Oracle





אפריקאנס אלבני ערבי אַרְמֶנִי אזרביג'אן הבסקים בלארוסית בולגרי קטלאנית הסיני (פשוט) סינית (מסורתית) קרואטית צ'כיה דני הולנדי אנגלית אסטוני פיליפיני פיני צרפתית
גליציה גאורגיה גרמני יווני קריאולית האיטית עברי הינדי הונגרי איסלנדי אינדונזי אירי איטלקי יפני קוריאני לטבי ליטאי מקדוניה מלאית מלטזית נורבגי
פרסי פולני פורטוגזי רומנית רוסי סרבית סלובקי סלובני ספרדי סוואהילית שבדי תאילנדי תורכי אוקראיני אורדו ויאטנמית וולשית יידיש בנגלית בוסנית
קבואנו אספרנטו גוג'ראטית האוסה המונג איגבו יָאוָנִי קנאדה לחמר לאו הלטינית מאורים מרתי מונגולי נפאלית פונג'בית סומליה טמילית טלוגו יורובה
זולו
Английский Французский Немецкий Итальянский Португальский Русский Испанский