IniFile(ini語法問題) |
|
缺席
|
|
lilisn
一般會員   發表：35 回覆：62 積分：24 註冊：2003-03-09 發送簡訊給我 |
procedure TForm1.FormCreate(Sender: TObject);
var IniFile: TIniFile;
begin
IniFile := TIniFile.Create('\Visual hc\Business\set.structure\Expense.INI');
edit1.Text:=IniFile.ReadString('expense','a_money','');
edit2.Text:=IniFile.ReadString('expense','b_money','');
edit3.Text:=IniFile.ReadString('expense','c_money','');
edit4.Text:=IniFile.ReadString('expense','d_money','');
IniFile.Free;
end; 當游標對EDIT1.TEXT 原 800 改為 60 按ESC竟然將60寫入 EXPENSE.INI ?? 並沒有按ColorButton1Click 為什麼會save expense.ini ? //
procedure TForm1.ColorButton1Click(Sender: TObject);
var IniFile: TIniFile;
begin
IniFile := TIniFile.Create('\Visual hc\Business\Set.Structure\Expense.INI');
IniFile.WriteString('expense','a_money',Edit1.Text);
IniFile.WriteString('expense','b_money',Edit2.Text);
IniFile.WriteString('expense','c_money',Edit3.Text);
IniFile.WriteString('expense','d_money',Edit4.Text);
IniFile.Free;
beep;
Showmessage('已完成存檔');
end;
|
|
miyu
中階會員  發表：13 回覆：96 積分：91 註冊：2003-05-01 發送簡訊給我 |
看起來跟 Ini 完全無關. 我在懷疑, 你的那個 Button 的 Cancel 屬性是不是不小心被你設成 True.. ---
小葵..小葵有很多的夢想
等待薰下班回家, 並準備晚飯跟洗澡水
薰回家的時候, 對你說一聲 歡迎回家
在休息的日子, 兩個人坐在屋外的走廊上, 品嚐著我親自作的點心
薰如果累了, 替他搥搥肩; 冷了, 和薰一起擠著被爐
但是, 但是... 小葵最大的心願是...成為薰的..成為薰的妻子 發表人 - Miyu 於 2003/09/04 12:33:30
|
|
lilisn
一般會員 發表：35 回覆：62 積分：24 註冊：2003-03-09 發送簡訊給我 |
|
|
lilisn
一般會員 發表：35 回覆：62 積分：24 註冊：2003-03-09 發送簡訊給我 |
發表時間：2003-09-04 10:41:28
IP:61.228.xxx.xxx 未訂閱
系統時間：2024-05-15 22:38:26
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |