jsa := SA([]).AsArray;  for I := 0 to Strlist.Count - 1 do  if SO(Strlist[I]) <> nil then  begin    S := SO(Strlist[I]).S[SoNameC];//*//    if SO(Strlist[I]).S[SoNameC] < DateTimeToStr(Now - LastDays) then//如果用上面这行写法，就有这个现象。//用个 string类型的变量 过度一下 就正常。    if S < DateTimeToStr(Now - LastDays) then//*    begin      jsa.Add(SO(I));// 1 3 5 7      Continue;    end    else      Break;  end  else    jsa.Add(SO(I));  for I := jsa.Length - 1 downto 0 do//7 5 3 1    Strlist.Delete(jsa[I].AsInteger);  if NowSave then    Strlist.SaveToFile(Filename);end;