关于文本操作的一个新问题！急 急 急 急 急

Question

刚根据小虫给我的帮助 我把程序修改成了
procedure Tformmain.N11Click(Sender: TObject);
var
activetime:tdatetime;
name:string;
doing:string;
Files:tfilestream;
s:string;
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 用户日志表 ');
adoquery1.Open;
adoquery1.First;
while not adoquery1.Eof do
begin
activetime:=adoquery1.FieldValues['时间'];
name:=adoquery1.FieldValues['用户名'];
doing:=adoquery1.FieldValues['行为'];
s:=datetostr(activetime)+name+doing;
Files:=TfileStream.Create('..\主程序\用户日志.txt',fmopenreadwrite);
files.Write(s[1],length(s));
adoquery1.Next;
end;
Files.Free;
end;可是运行说 用户日志.txt被另一个程序使用中
可是我查看了 没有检查到没有其他的程序使用用户日志不知道怎么办了请大家帮忙

Answer 1

把Files:=TfileStream.Create('..\主程序\用户日志.txt',fmopenreadwrite);放到While外面