Delphi是一個非常強大的編程語言，它可以與多種數據類型進行交互。其中最常用的之一就是記錄數組。但是，如果你想將記錄數組轉換為JSON格式，該怎么辦呢？以下是一些基本操作。

type
TPerson = record
Name: string;
Age: Integer;
end;
TPeople = array of TPerson;
function PeopleToJSON(People: TPeople): string;
var
JSONArray: TJSONArray;
i: Integer;
begin
JSONArray := TJSONArray.Create;
try
for i := Low(People) to High(People) do
begin
with TJSONObject.Create do
begin
AddPair('Name', People[i].Name);
AddPair('Age', People[i].Age);
JSONArray.AddElement(Self);
end;
end;
Result := JSONArray.ToString;
finally
JSONArray.Free;
end;
end;

上述代碼中，我們定義了一個名為TPerson的記錄類型，其中包含姓名和年齡字段。然后我們定義了一個名為TPeople的記錄數組類型，其中包含多個TPerson。接下來，我們通過定義一個函數來將TPeople轉換為JSON。

在該函數中，我們創建了一個TJSONArray實例，用于存儲多個記錄。然后，我們遍歷TPeople數組，并創建TJSONObject實例來存儲單個記錄。我們使用AddPair函數定義記錄的每個字段的名稱和值。最后，我們將TJSONObject實例添加到TJSONArray實例中，并將結果作為字符串返回。

使用這個函數，你可以輕松地將Delphi中的記錄數組轉換為JSON格式，這樣你就可以方便地與其他語言的應用程序進行交互了。