delphi 用TStringStream操作文件，删除文件结尾处的空字符

Question

delphi 用TStringStream操作文件，删除文件结尾处的空字符，要这么操作，本人新手

Answer 1

你还不如直接读出内容，然后Trim

Answer 2

var
  s: string;
begin  s := StringSteam1.DataString;
  s := TrimRight(s);
  StringStream1.Clear;
  StringStream1.WriteString(s);
  ...

Answer 3

对不起，写错了是用TFileStream操作文件

Answer 4

var
  i: integer;
  k: Byte;
begin
  i := 0;
  Filestream1.Seek(0,soFromEnd);
  repeat    
    Filestream1.Read(k,1);
    if k <= ord(' ') then
      break
    else begin
      i := i - 1;
      Filestream1.Seek(i,soFromEnd);
    end;
  until Filestream1.Size + i = 0;
  Filestream1.Size := Filestream1.size + i;...

Answer 5

更正：
if k <= ord(' ') then...
改为
if k > ord(' ') then...