D
dafuwengqing
Unregistered / Unconfirmed
GUEST, unregistred user!
大哥们：
我想把文件中含有what字符串的行的内容重写。我的函数如下，但一执行rewrite()语句后文件内容变空了！
procedure writeinformation(filename,what,value:string);//把时间信息写入文件
var
timefile:textfile;
s:string;
begin
assignfile(timefile,filename);
rewrite(timefile);
repeat
readln(timefile,s);
if pos(what,s)>0 then
begin
writeln(timefile,what+'='+value);
break;
end;
until eof(timefile);
closefile(timefile);
end;
我想把文件中含有what字符串的行的内容重写。我的函数如下，但一执行rewrite()语句后文件内容变空了！
procedure writeinformation(filename,what,value:string);//把时间信息写入文件
var
timefile:textfile;
s:string;
begin
assignfile(timefile,filename);
rewrite(timefile);
repeat
readln(timefile,s);
if pos(what,s)>0 then
begin
writeln(timefile,what+'='+value);
break;
end;
until eof(timefile);
closefile(timefile);
end;