您所在位置：主题：请问有什么方法不覆盖内容的
channelxp
[专家分：20] 发布于 2007-06-27 16:15:00
之前发了个帖子说如何把内容保存到TXT文件里,我现在基本可以做出来,但我的做法有点问题,就是之后的新内容,会覆盖掉TXT里面的久内容,下面是我的程序
function TMessageSendForm.SaveMsgData(MsgData: array of string): Boolean;
var
FStr: TStringStream;
FMemo: TMemoryStream;
i: Integer;
str: string;
begin
Result := False;
for i := 0 to Length(MsgData) - 1 do
begin
FStr := TStringStream.Create(str);
FStr.WriteString(MsgData[0] + '..');
FStr.Position := 0;
FMemo := TMemoryStream.Create;
FMemo.CopyFrom(FStr, FStr.Size);
FMemo.SaveToFile('c:\a.txt');
Result := True;
FMemo.Free;
FStr.Free
end;
end;
通过一个循环我想把数组MsgData从MsgData[0]一直到MsgData[i]的数写进TXT,但由于这种方法会覆盖之前的内容,所以在TXT文件中只出现MsgData[i]的内容,请问有什么方法可以不覆盖呢
function TMessageSendForm.SaveMsgData(MsgData: array of string): Boolean;
var
FStr: TStringStream;
FMemo: TMemoryStream;
i: Integer;
str: string;
begin
Result := False;
for i := 0 to Length(MsgData) - 1 do
begin
FStr := TStringStream.Create(str);
FStr.WriteString(MsgData[0] + '..');
FStr.Position := 0;
FMemo := TMemoryStream.Create;
FMemo.CopyFrom(FStr, FStr.Size);
FMemo.SaveToFile('c:\a.txt');
Result := True;
FMemo.Free;
FStr.Free
end;
end;
通过一个循环我想把数组MsgData从MsgData[0]一直到MsgData[i]的数写进TXT,但由于这种方法会覆盖之前的内容,所以在TXT文件中只出现MsgData[i]的内容,请问有什么方法可以不覆盖呢