欧美一区二区三区,国内熟女精品熟女A片视频小说,日本av网,小鲜肉男男GAY做受XXX网站

delphi中json轉字符串

阮建安1年前10瀏覽0評論

在Delphi中,我們可以使用TJSONObject來表示JSON格式的數據。而將JSON轉換成字符串,可以使用與之對應的函數TJSONObject.ToString,非常方便。

var
Json: TJSONObject;
JsonStr: string;
begin
Json := TJSONObject.Create;
Json.AddPair('name', '張三');
Json.AddPair('age', TJSONNumber.Create(20));
JsonStr := Json.ToString;
Memo1.Lines.Add(JsonStr);
Json.Free;
end;

在上述代碼中,我們先創建了一個TJSONObject對象,然后向其中添加了名字和年齡兩個屬性,并將其轉換成字符串類型。轉換完成后,我們將其添加到Memo控件中,方便我們進行查看。最后記得釋放TJSONObject對象。

同時,如果我們想格式化輸出JSON字符串,則可以使用函數TJSONObject.Format,如下所示:

JsonStr := Json.Format(2);
Memo1.Lines.Add(JsonStr);

這里的數字2表示縮進的空格數,可以根據情況自行調整。

總結來說,Delphi中將JSON轉換成字符串非常方便,只需要使用TJSONObject.ToString或者TJSONObject.Format函數即可完成,同時也可以自定義格式化輸出的樣式。在JSON處理中,這是一個非常常用的操作,掌握之后可以輕松處理各種JSON數據。

上一篇vue萬條