如:
try assignFile(F,FileName);
try
if NOT FileExists(FileName) then
ReWrite(F)
else
begin
Append(F);
WriteLn(F,zzz);
Flush(F); //////////???????????????
end;
finally
closeFile(F);
end;
except
;
end
next;
try assignFile(F,FileName);
try
if NOT FileExists(FileName) then
ReWrite(F)
else
begin
Append(F);
WriteLn(F,zzz);
Flush(F); //////////???????????????
end;
finally
closeFile(F);
end;
except
;
end
next;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货