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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |