delphi对txt文档的操作 ( 积分: 100 )

H

hemu070

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-12

• #1

我想实现这样的功能：点击按钮向txt文档中插入memo里面的文字，下次点击后先插入一行××××××××××××××或者两个空行，要怎么才能实现啊

 

L

lngdtommy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-12

• #2

明太明白你所說的是什麼意思
Memo1.Lines.SaveToFile('Target.Text');
以上就可以插入文字，至於空行什麼的自己控制一下。

 

H

hhjjhhjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-12

• #3

在程序中用TStringlist来处理就好。memo有相应的line:TStrings
Beging
var alist:TStringlist;
Begin
alist := TStringlist.Creat;
Try
alist.loadfromfile('c:/temp.txt');//加载
alist.add('加一行文字');
alist.add('');//加空行
alist.savetofile('c:/temp.txt'); //保存
finally
alist.clear;
alist.free;
end
end

 

H

hemu070

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-12

• #4

我做的是自动生成txt文件内，是个时时监控系统，不能手动在memo中加空行，只能在程序中控制

 

暗

暗夜中独舞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-12

• #5

先判断TXT文件里有没有存在str:string
if str='' then begin
//直接读入文件
end else beign
//先读入XXXXXXXXXXXXXXXXXXXXX
//再读入文件
end;

 

H

hemu070

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-12

• #6

to暗夜中独舞，你能具体点吗

 

H

hemu070

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-12

• #7

多人接受答案了。