如何Delphi7 读取 Json文件内容

Delphi7 读取 Json文件内容，
{"records":{"9BD":"点表数据9","8BD":"点表数据8","7BD":"点表数据7"}}
有三组数据（可能更多），怎么遍历提取出来？
memo1中显示内容
1 参数名称：9BD 参数内容：点表数据9
2 参数名称：8BD 参数内容：点表数据8
2 参数名称：7BD 参数内容：点表数据7

获取完records对象在遍历键值对就行：

uses System.JSON, System.IOUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  JsonString: string;
  JsonObj, RecordsObj: TJSONObject;
  Pair: TJSONPair;
  i: Integer;
begin
  JsonString := TFile.ReadAllText('data.json'); 
  JsonObj := TJSONObject.ParseJSONValue(JsonString) as TJSONObject;
  try
    RecordsObj := JsonObj.GetValue('records') as TJSONObject;
    for i := 0 to RecordsObj.Count - 1 do
    begin
      Pair := RecordsObj.Pairs[i];
      memo1.Lines.Add(Format('%d 参数名称：%s 参数内容：%s',
        [i + 1, Pair.JsonString.Value, Pair.JsonValue.Value]));
    end;
  finally
    JsonObj.Free;
  end;
end;

• 这篇博客: Delphi中JSON的使用中的 6、Variant 可变类型 部分也许能够解决你的问题, 你可以仔细阅读以下内容或跳转源博客中阅读:
  

• var 
    X: ISuperObject;
  begin 
    X := TSuperObject.Create;
    X.V['A'] := 1;
    X.V['B'] := '2';
    X.V['C'] := 1.3;
    X.V['D'] := False;
    X.V['E'] := Null;
    X.V['F'] := Now;
    Memo1.Lines.Add(X.AsJSON);
  end;