如何将memo内容添加到文本文件末尾？(100分)

victorwin · 2002-07-25

memo记录一些操作信息，用文本文件记录，

memo记录满100行后，把memon内容追加到文本文件，然后clear,再记录，如此类推

CaoAizu · 2002-07-25

有个也许挺苯的办法

再建一个Memo，将文本文件读入，然后将原Memo中的内容加到Memo的后面
然后存盘。
其实建一个TStrings就行了。
[

]

wind2000 · 2002-07-26

用TStrings比较方便！

Nizvoo · 2002-07-26

要不用Append

大富婆 · 2002-07-26

while memo1.lines.count > 100 then
begin
Append(MyTextFile);
for i := 1 to 100 do
writeln(MyTextFile, memo1.lines[i - 1]);
memo1.clear;
end;

linsb · 2002-07-26

如果文件不是特大，用TStrings方便、速度快。

Writer · 2002-07-26

我觉得用内存流+文件流好点，因为比较底层，速度应该是最快的。

victorwin · 2002-07-26

thanks

测试如下：
var f:textfile;
assginfile(f,'123.txt');
append(f);
write(f,pchar(memo1.text));

通过