在Delphi中，我們可以使用JsonDataObjects庫來加載和解析JSON串，具體操作如下：

var
json: TJsonNode;
list: TJsonArray;
value: Integer;
begin
json := TJsonNode.Create;
try
// 加載JSON串
json.LoadFromJsonString('{"name": "John", "age": 30, "city": "New York"}');
// 獲取json對象中的值
value := json.GetPath('age').AsInteger;
ShowMessage(IntToStr(value)); // 顯示：30
// 獲取json對象中的數(shù)組
list := json.GetPath('cities') as TJsonArray;
for value in list do
ShowMessage(value.AsString); // 顯示：New York, London, Paris
finally
json.Free;
end;
end;

在上面的例子中，我們成功加載了一個JSON串，并通過GetPath方法來獲取對象中的值和數(shù)組。如果要將JSON串解析成自定義的類對象，我們可以通過JsonToObject方法實現(xiàn)：

type
TPerson = class
public
Name: string;
Age: Integer;
City: string;
end;
var
json: TJsonNode;
person: TPerson;
begin
json := TJsonNode.Create;
person := TPerson.Create;
try
// 加載JSON串
json.LoadFromFile('person.json');
// 解析成自定義的對象
json.JsonToObject(person);
ShowMessage(person.Name + ', ' + IntToStr(person.Age) + ', ' + person.City);
finally
json.Free;
person.Free;
end;
end;

在上面的例子中，我們定義了一個TPerson類，并通過JsonToObject方法將JSON串解析成類對象。這樣我們就可以方便地操作JSON串中的值了。