如何使用ini檔

發文回覆瀏覽次數：2194

推到 Plurk!

推到 Facebook!

尚未結案

Oistrakh
一般會員

發表：4
回覆：3
積分：1
註冊：2006-07-19

發送簡訊給我

#1 引用回覆回覆

發表時間：2006-07-20 10:39:39

IP:61.58.xxx.xxx 未訂閱

我初學Delphi，設計一個test.ini檔

內容:

[Context]

Main=123456

Function=ABCDEFG

=======================

怎麼用Tinifile，ButtonClick時，一行一行獨入讓string出現 123456ABCDEFG

感激不盡謝謝!!

te_hsun
一般會員

發表：43
回覆：34
積分：20
註冊：2002-03-25

發送簡訊給我

#2 引用回覆回覆

發表時間：2006-07-20 11:00:30

IP:218.168.xxx.xxx 未訂閱

function GetContext(const AIniFilename: string): string;
var
FIniFile: TIniFile;
Context_Main, Context_Function: string;
const
Context = 'Context';
begin

if not FileExists(AIniFilename) then exit;

FIniFile:= TIniFile.Create(AIniFilename);
try
with FIniFile do
begin
Context_Main:= ReadString(Context, 'Main', '');
Context_Function:= ReadString(Context, 'Function', '');
end;
Result:= format('%s%s', [Context_Main, Context_Function]);
finally
FIniFile.Free;
end;

end;

procedure TForm1.Button4Click(Sender: TObject);
var
Filename: string;
begin
Filename:= 'Context.ini';

Edit1.Text:= GetContext(Filename);
end;

Oistrakh
一般會員

發表：4
回覆：3
積分：1
註冊：2006-07-19

發送簡訊給我

#3 引用回覆回覆

發表時間：2006-07-20 13:59:36

IP:61.30.xxx.xxx 未訂閱

我跑出來了謝謝你囉!!

Oistrakh
一般會員

發表：4
回覆：3
積分：1
註冊：2006-07-19

發送簡訊給我

#4 引用回覆回覆

發表時間：2006-08-03 16:59:46

IP:61.30.xxx.xxx 未訂閱

我現在遇到另外的問題:

ini內容:
[Context]
Main=123456
Function=ABCDEFG
Procedure=hello
Function=wxyz
Procedure=World
=======================
怎麼用Tinifile，ButtonClick時，一行一行獨入讓string出現 123456ABCDEFGhellowxyzworld

這樣好像有點困難

感激不盡謝謝!!

系統時間：2024-05-17 17:39:02

聯絡我們 | Delphi K.Top討論版

本站聲明

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