動態物件儲存與開啟 屬性無法儲存? |
|
答題得分者是：syntax
|
|
suntea
一般會員   發表：18 回覆：16 積分：6 註冊：2006-12-12 發送簡訊給我 |
在Panel1上動態新增 TShape 物件 MyShape , 共 Shape_count 個
新增的每個TShape 物件 後來有改變成不同XY座標 用WriteComponentResFile 儲存全部TShape 物件沒問題 但用ReadComponentResFile開啟 結果全部每個TShape 物件屬性座標都一樣 ? 相當不解.. <textarea class="cpp" rows="10" cols="60" name="code">void __fastcall TForm1::Save_ButtomClick(TObject *Sender) { try { if (SaveDialog1->Execute()) { for (int i = 0; i < Shape_count; i ) { WriteComponentResFile(SaveDialog1->FileName ,MyShape[i]); } } } catch(...) { return; } } //--------------------------------------------------------------------------- void __fastcall TForm1::Open_ButtomClick(TObject *Sender) { try { if (OpenDialog1->Execute() && FileExists(OpenDialog1->FileName)) { for (int i = 0; i < Shape_count; i ) { ReadComponentResFile(OpenDialog1->FileName,MyShape[i]); } } } catch(...) { return; } } </textarea> |
|
salo0610
高階會員   發表：42 回覆：120 積分：107 註冊：2003-02-18 發送簡訊給我 |
|
|
suntea
一般會員 發表：18 回覆：16 積分：6 註冊：2006-12-12 發送簡訊給我 |
|
|
salo0610
高階會員 發表：42 回覆：120 積分：107 註冊：2003-02-18 發送簡訊給我 |
|
|
syntax
尊榮會員 發表：26 回覆：1139 積分：1258 註冊：2002-04-23 發送簡訊給我 |
|
|
suntea
一般會員 發表：18 回覆：16 積分：6 註冊：2006-12-12 發送簡訊給我 |
發表時間：2007-02-09 18:06:33
IP:59.105.xxx.xxx 未訂閱
系統時間：2024-05-09 13:07:34
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |