delphi 记事本追加问题

在我的编写的记事本里,有一个"另保存"和"保存"按键,另保存,我就不说了,很好实现,就是保存,我遇到了麻烦,例如:我用我的记事本写东西,我如果继续昨天的写,这里就点保存就可以了,把现在写的东西追加到原来的文件的末尾,不要在出现让我选择保存的地点.不知道这样说大家能明白吗,我是一个程序员初学者,,,,
随然我这个问题解决了,可还是不怎么理想,希望大家给个帮助:
我是这么写的:
另保存代码:
if SaveDialog1.Execute then
begin
if FileExists(SaveDialog1.FileName) then
begin

if bsSkinMessage1.MessageDlg('文件名重复是否覆盖',mtWarning,mbOKCancel,0)= 1 then
mmo.Lines.SaveToFile(SaveDialog1.FileName) ;
end
else
mmo.Lines.SaveToFile(SaveDialog1.FileName)
end;
end;
保存代码:
var

f:TextFile;
begin
if open1.FileName <>'txt' then

begin

AssignFile(f,open1.FileName);
Rewrite(f);
Writeln(f,mmo.text);
CloseFile(f);
end
else
begin
if SaveDialog1.FileName <>'' then
begin
AssignFile(f,SaveDialog1.FileName);
Rewrite(f);
Writeln(f,mmo.text);
CloseFile(f);
end
else
zt.OnClick(Sender);
end
end;//每次保存一次,都要删除原来文件在保存,感觉不怎么理想,.就想直接追加进去啊??怎么弄
我用过append但不行,他会把所有的写的东西在复制一遍在同一个文档里

举报该文章