过客生活

品味生活

关于delphi版本的json

    在sf.net上,我很艰苦都没有吧bug汇报上去,所以在这里写下,希望哪位能搜索到就看看吧。
    其实这个bug很容易发现。下面列出bug的修改结果:
找到 function JSONObject.put(key: string; value: TZAbstractObject): JSONObject;函数改成如下,红色为修改部分。
function JSONObject.put(key: string; value: TZAbstractObject): JSONObject;
var
  temp : TObject;
  i : integer;
begin
  if (key = '') then
  begin
    raise NullPointerException.create('Null key.');
  end ;
  if (value <> nil) then
  begin
    i := self.myHashMap.IndexOf(key);
    if ( i >= 0) then
    begin
      temp := self.myHashMap.Objects [i];
      self.myHashMap.Objects[i]  := value;
      if (temp <> CONST_FALSE)
        and (temp <> CONST_TRUE)
        and (temp <> CNULL) then
        temp.free;
    end
    else
    begin
      self.myHashMap.AddObject(key, value);
    end;
  end
  else
  begin
    temp := remove(key);
    if (temp <> nil) then
    begin
      temp.free;
    end;
  end;
  result := self;
end;

有了json我基本已经不想使用soap了

posted on 2006-04-30 11:46 过客 阅读(1523) 评论(2)  编辑 收藏 引用 所属分类: 技术

评论

# re: 关于delphi版本的json 2008-10-06 09:17 WalkingBlue

你所修改的是哪个Json库?  回复  更多评论   

# re: 关于delphi版本的json 2008-10-11 21:58 过客

这个json的作者如下,现在sorceforge上有三个,具体那个我也忘记了
Autor : Jose Fabio Nascimento de Almeida  回复  更多评论   

只有注册用户登录后才能发表评论。
<2021年1月>
272829303112
3456789
10111213141516
17181920212223
24252627282930
31123456

导航

统计

常用链接

留言簿(2)

随笔分类

随笔档案

朋友

搜索

最新评论

阅读排行榜

评论排行榜