写 ini 文件的问题。。.(25分)

I

inbreak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-21

• #1

我有一个 ini 文件。。
我编程写的这个 ini 文件如下。：
[Setup]
address=192.168.0.13
port=21
userid=inbreak
passwd=123456
[set]
Count=1
sc=1
xz=100

请问如何可以在 [set] 上面加一个空行呢？

以下是代码

AFtpFile.WriteString('Setup','address',EAddr.Text);
AFtpFile.WriteString('Setup','port','21');
AFtpFile.WriteString('Setup','userid','inbreak');
AFtpFile.WriteString('Setup','passwd','123456');
AFtpFile.WriteString('set','count',Ecount.Text);
AFtpFile.WriteInteger('set','sc',combobox.itemsindex);
AFtpFile.WriteString('Set','xz','100');

以上是代码。。。。

我是想 在 [set] 上写入一个空行！

 

T

tianjh007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-21

• #2

最简单的办法 AFtpFile.WriteString('Setup','passwd','123456'+#13#10);

 

I

inbreak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-22

• #3

除了这个方法就没有别的了吗？

 

G

glencao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-22

• #4

To:inbreak
不好意思,借你的地方向你請問一個問題,
txt文件操作的寫知道了,請問怎樣讀呢?謝謝!

 

I

inbreak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-22

• #5

to glencao:
以下方法可以将 abc.txt 文件的内容读到 combobox 中。当然。改改可以读到 memo 、list 等中

procedure TFormMain.WriteText;
var F:TextFile;
FileName,S:String;
s1:Tstrings;
begin
FileName:=ExtractFilePath(Application.ExeName)+'/abc.txt';//这个是你文件的路径及文件名
AssignFile(F,FileName);
s1:=Tstringlist.Create;
S1.LoadFromFile(Filename);
if s1.IndexOf(combobox1.Text)<0 then
begin
Append(f);
S:=Combobox1.Text;
Combobox1.Items.Add(s);
writeln(F,S);
CloseFile(F);
end;
end;

 

G

glencao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-22

• #6

txt格式同ini的取法應該是一樣的吧,
就像你的那ini文件一樣,怎樣將這些值取出呢?謝謝!

 

Z

zhang9999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-22

• #7

tinifile类中有readstring ，readinteger等方法可以取出ini文件的值，很方便的

 

F

Flintstone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-22

• #8

要加一行是为什么？

 

I

inbreak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-23

• #9

to Flintstone:
呵呵~~~你就当我无聊吧。。
我只是为了美观而己。。没有什么其它特别的意义。。。
我也是想知道是否有方法可以办到而己了。

 

J

jianl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-23

• #10

我看要再写一个函数
procedure TFormMain.WriteText;
var F:TextFile;
FileName,S:String;
slast,sCurrent:string;
begin
FileName:=ExtractFilePath(Application.ExeName)+'/abc.txt';//这个是你文件的路径及文件名
AssignFile(F,FileName);
sLast = readln(f);
while not f.eof do
begin
sCurrent := readln(f);
if pos('[',sCurrent) then
if sLast <> ''
writeln(f,#13#10);
sLast := sCurrent;
end;
CloseFile(F);
end;
end;

 

I

inbreak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-23

• #11

?

 

I

inbreak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-24

• #12

接受答案了.