在test2中存储了一些数据如NULL 0 NULL NULL NULL NULL NULL NULL NULL NULL NULL 5 1 0 371 159 522 283 NULL NULL 0 255 NULL True NULL NULL NULL 我想将其中的整数型的数存到append 里去，可是结果出现错误，恳请前辈指点怎么修改？  

var
  i,x:integer;
  S:TStringList;
  F:textFile;
begin
  S:=TStringList.Create ;
  AssignFile(F,'append.txt');
  s.LoadFromFile('test2.txt');
   if s.Count >0 then
    for i:=0 to s.Count -1 do
    begin
      if(UpperCase(S.Strings[i])<>'NULL') and
                  (UpperCase(S.Strings[i])<>'TRUE') then
      begin
      x:=strtoint(s.strings[i]);
      Rewrite(F);
      writeln(F,inttostr(x));
      end;
    end;    end;
 

同樣都是Text File 為什麼要用兩種處力方式? 

procedure TForm1.Button1Click(Sender: TObject);
var
  I:Integer;
  R, S:TStringList;
begin
  if FileExists('TEST2.TXT') then
  begin
    R := TSTringList.Create;
    try
      R.LoadFromFile('TEST2.TXT');
      if R.Count > 0 then
      begin
        S := TStringList.Create;
        try
          if FileExists('APPEND.TXT')then
             S.LoadFromFile('APPEND.TXT');
          
          for I := 0 to R.Count-1 do
                if(UpperCase(R[I])<>'NULL') and
                 (UpperCase(R[I])<>'TRUE') then                  S.Add(R[I]);              S.SaveToFile('APPEND.TXT');            finally
          FreeAndNil(S);
        end;
      end;
    finally
      FreeAndNil(R);
    end;
  end;
end;