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
空一行文件尾
问题:如何把最后一空行删掉呢?
F: TextFile;
begin
AssignFile(F,'c:/abc.txt');
Append(F);
Writhe(F, '123456');
CloseFile(F);
end;
用记事本打开c:/abc.txt
123456
空一行文件尾
问题:如何把最后一空行删掉呢?