בית
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.56 MB
זמן: 0.023 c
1-22144
שורניק
2001-12-20 11:36
2002.01.08
אדונים !!!! אנא עזרו בבעיה!


3-21937
ANDREY196
2001-12-04 18:24
2002.01.08
כיצד אוכל לשנות את הצבע בשורה ספציפית בטבלה ב- DBGRID


7-22435
sssss
2001-09-23 14:15
2002.01.08
MASTERYYY !!! שאלת חיים ומוות !!!!


3-21945
asafr
2001-12-04 18:11
2002.01.08
FastReport. frBand.Visible


1-22130
Катерина
2001-12-20 07:37
2002.01.08
עזור לאנשים טובים





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