線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:733
推到 Plurk!
推到 Facebook!

關於TLebeledEdit (取值存檔)

答題得分者是:RaynorPao
e_snare
一般會員


發表:26
回覆:35
積分:12
註冊:2004-03-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-03-14 15:13:25 IP:211.74.xxx.xxx 未訂閱
如果我有五個LebeledEdit欄位, 如何把在五個欄位所輸入的資料取出轉成hex存成文字檔 並可以開檔叫出在欄位上顯示?? 可否請用兩個欄位來做示範給我看! 還有就是LebeledEdit好像不適用LebeledEdit1->Text->Lines->SaveTo.... 那是要怎麼存檔?? 謝謝大家
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-03-14 19:44:02 IP:61.221.xxx.xxx 未訂閱
引言: 如果我有五個LebeledEdit欄位, 如何把在五個欄位所輸入的資料取出轉成hex存成文字檔 並可以開檔叫出在欄位上顯示?? 可否請用兩個欄位來做示範給我看! 還有就是LebeledEdit好像不適用LebeledEdit1->Text->Lines->SaveTo.... 那是要怎麼存檔?? 謝謝大家
e_snare 你好:
(1)因為你並沒有說明在 TLabeledEdit 填入的資料是什麼?因此,我假設你填
   入的資料都是整數
(2)可以利用 TStringList 來達到讀取/寫入檔案的目的,請參考以下的範例程
   式碼
   // 寫入檔案
   TStringList *sl1=new TStringList;
   sl1->Add(IntToHex(StrToInt(LabeledEdit1->Text), 8));
   sl1->Add(IntToHex(StrToInt(LabeledEdit2->Text), 8));
   sl1->SaveToFile("test.txt");
   delete sl1;       // 讀取檔案
   TStringList *sl2=new TStringList;
   sl2->LoadFromFile("test.txt");
   LabeledEdit1->Text=IntToStr(StrToInt("0x"+sl2->Strings[0]));
   LabeledEdit2->Text=IntToStr(StrToInt("0x"+sl2->Strings[1]));
   delete sl2;
(3)請再依照自己的需求,自行修改
    < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --
        
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
e_snare
一般會員


發表:26
回覆:35
積分:12
註冊:2004-03-14

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-03-14 22:24:11 IP:211.74.xxx.xxx 未訂閱
謝謝RaynorPao的幫助,你的回答我了解了,也解決了我的問題!!
系統時間:2024-11-22 22:25:18
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!