伤透脑筋。关于memo。 (300分)

I

ilovedelphi2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-25

• #1

问题是这样的。通过程序为memo增加几行文字内容，并且有空行和换行。

然后再通过memo保存成另外一个文件（假设为b.txt）。

现在碰到的问题的是我需要在程序中插入的文本内容要和保存成文件的内容一摸一样。就是说程序中在memo内增加的内容要和b.txt文件一样。（包括空行和换行）

为了这个问题，春节没有过好。呵呵。一直在考虑这个问题。

 

枯

枯叶子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-25

• #2

var t:tstringlist;
begin
t:=tstringlist.create;
t.loadfromfile('b.txt') ;
memo.text:=memo.text+t.text;
t.Free ;
end;


再加一个memo也行啊

 

D

delphiroad

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-25

• #3

var t:tstringlist;
begin
t:=tstringlist.create;
t.loadfromfile('b.txt') ;
Memo1.SelStart:=length(memo1.Lines.Text)+1;//光标移到最后
Memo1.SelLength:=0;
Memo1.SelText:=t.text;//在光标处插入（如果Memo1.SelLength不为0则是覆盖）文本。
t.Free ;
end;

 

I

ilovedelphi2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-25

• #4

谢谢楼上，不过你们好像答错了。呵呵。

b.txt文件不是预先就有的，而是我保存的。而内容则是我在程序中“通过程序为memo增加几行文字内容，并且有空行和换行。”

 

B

bufeng577

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-25

• #5

问题中是否要说明原文件名，，假设原文件是:a.txt吧；

我也是初学者，抱歉，路过而已......

 

枯

枯叶子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-25

• #6

什么嘛，你刚保存又读出来干嘛

 

枯

枯叶子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-25

• #7

“和保存成文件的内容一摸一样”，保存成文件的内容不就是memo的内容？
然后又插memo的内容……？

 

I

ilovedelphi2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-25

• #8

抱歉，这个问题我可能表述不清楚。算了。

 

刘

刘亚林

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-25

• #9

靠，这样都能得分～～