请问如何把路径在程序开始运行时初始化。。。 |
|
尚未結案
|
|
jtp
初階會員   發表：39 回覆：81 積分：29 註冊：2003-04-20 發送簡訊給我 |
|
|
timhuang
尊榮會員 發表：78 回覆：1815 積分：1608 註冊：2002-07-15 發送簡訊給我 |
|
|
Mickey
版主 發表：77 回覆：1882 積分：1390 註冊：2002-12-11 發送簡訊給我 |
|
|
jtp
初階會員 發表：39 回覆：81 積分：29 註冊：2003-04-20 發送簡訊給我 |
|
|
cmj
高階會員 發表：15 回覆：242 積分：226 註冊：2002-06-12 發送簡訊給我 |
//存設定值
procedure TForm1.Button27Click(Sender: TObject);
var ini:TiniFile;
Section:String;
begin
Ini:=TiniFile.Create('D:\TEST.INI');
Section:='SYSTEM';
Ini.WriteString(Section,'Path','d:\');
Ini.WriteInteger(Section,'Integer',1234);
Ini.Free;
end; //讀設定值
procedure TForm1.Button28Click(Sender: TObject);
var ini:TiniFile;
Section:String;
ss:String;
i:integer;
begin
Ini:=TiniFile.Create('D:\TEST.INI');
Section:='SYSTEM';
ss:=Ini.ReadString(Section,'Path','d:\');
i:=Ini.ReadInteger(Section,'Integer',1234);
showmessage('ss=' ss ',' 'i=' inttostr(i));
Ini.Free;
end; //其他可參考TIniFile說明
|
發表時間：2003-06-21 09:32:21
IP:218.18.xxx.xxx 未訂閱
系統時間：2024-05-20 14:30:41
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |