請問Delphi XE3有內建的方法可以將JSON的資料排序的嗎?
例如:
{
"1":"Mark"
"3":"Mary"
"4":"HULK"
"2":"SAM"
}
我想要排序後變成
{
"1":"Mark"
"2":"SAM"
"3":"Mary"
"4":"HULK"
}
謝謝!!

---------------------------------------------------------------------------------
var
mDict : TObjectDictionary< Integer, String >;
marr : TArray< Integer >;
jSonData:ISuperObject;
JsonArray:ISuperObject;
begin

//本身有來源並且來源有序號 所以應該不需要用到這段

mDict.Add(Key, Value);
mDict.Add(Key, Value);
mDict.Add(Key, Value);
mDict.Add(Key, Value);

marr:= mDict.Keys.ToArray
TArray.Sort(marr);

for i in arr do
begin
JsonData := SO;
JsonData.s[inttostr(i)] := mDict.Items[i];
JsonArray.AsArray.Add(JsonData);
end;
---------------------------------------------------------------------------------

如果知道來源的話應該就直接
JsonDataRequest := SO(來源);
JsonDataReturn := SO;

for 0 to JsonDataRequest .Count -1 then
JsonDataReturn.s[inttostr(i)] := JsonDataRequest[inttostr(i)].Astring;

Resutl := JsonDataReturn.tostring
---------------------------------------------------------------------------------

===================引 用 cgsn 文 章===================
請問Delphi XE3有內建的方法可以將JSON的資料排序的嗎?
例如:
{
"1":"Mark"
"3":"Mary"
"4":"HULK"
"2":"SAM"
}
我想要排序後變成
{
"1":"Mark"
"2":"SAM"
"3":"Mary"
"4":"HULK"
}
謝謝!!

編輯記錄

問題解決了，感謝kuraki5336，附上程式碼，不過有遇到一個奇怪的問題，
如果先取得oDict.ExtractPair(tArr[i]).Key再取oDict.ExtractPair(tArr[i]).Value之後oDict.ExtractPair(tArr[i]).Value就會變空白，
反過來就沒事，有誰知道這是什麼問題嗎?


[code delphi]
Var
oDict : TObjectDictionary< String, String >;
tArr : TArray< String >;
i:integer;
sValue,sKey:String;
jo:TJSONObject;
jp:TJSONPair;
begin
sValue := '';
sKey := '';
try

oDict := TObjectDictionary< String, String>.Create;
oDict.Add('a','Mark');
oDict.Add('c','Mary');
oDict.Add('z','Eric');
oDict.Add('d','Hulk');
oDict.Add('b','SAM');

tArr := oDict.Keys.ToArray;
TArray.Sort(tArr);

jo := TJSONObject.Create;
for i := LOW(tArr) to High(tArr) do begin
sValue := oDict.ExtractPair(tArr[i]).Value;
sKey := oDict.ExtractPair(tArr[i]).Key;
jp := TJSONPair.Create(sKey,sValue);
jo.AddPair(jp);
end;
Memo1.Lines.Clear;
Memo1.Lines.Add(jo.ToString);
finally
jo.Free;
oDict.Free;
end;
end;
[/code]

編輯記錄

//      sValue := oDict.ExtractPair(tArr[i]).Value;
// sKey := oDict.ExtractPair(tArr[i]).Key;
sValue := oDict.Items[tArr[i]];
sKey := tArr[i] ;

恩.......................................這樣卡緊