Append插入方式为什么最后还有一个空行?(1分)

  • 主题发起人 主题发起人 mr.zy
  • 开始时间 开始时间
M

mr.zy

Unregistered / Unconfirmed
GUEST, unregistred user!
var
F: TextFile;
begin
AssignFile(F,'c:/abc.txt');
Append(F);
Writhe(F, '123456');
CloseFile(F);
end;
用记事本打开c:/abc.txt
123456
空一行文件尾
问题:如何把最后一空行删掉呢?
 
后退
顶部