求 小牛人 解释

9111行是开始断点，然后 F8单步，9112行判断不成立，怎么突然到9127行 End那里了？

 

现在改成这样了，是正常了。关键差异，在第二个判断的语句里。
 

 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;

 

procedure AddjdsJson2(const Tid: string);
var
  jo: ISuperObject;
  S: string;
begin
//{"2015-03-15":{"993831137720616":true,"999059446806504":true}}
//{"2015-03-15":{"993831137720616":true,"999059446806504":true},"2015-03-14":{"993831137720616":true,"999059446806504":true}}
  if Tid = '' then Exit;
  S := DatetoStr(Date);
  jo := jdsJSON[S];//这里 要用个 变量，不能直接用 函数表达式
  if jo = nil then
  begin
    jo := SO();
    jdsJSON[S] := jo;//SO();
//    jo := jdsJSON[DatetoStr(Date)];
  end;
  jo.B[tid] := True;
end;