在Delphi中，我們可以使用REST.Json單元提供的TJson class來將記錄集轉換成json格式，以便于在客戶端與服務器端之間進行數據傳輸。

uses
REST.Json;
function RecordsToJson(ADataset: TDataset): TJSONArray;
var
i: Integer;
AJSONObject: TJSONObject;
begin
Result := TJSONArray.Create;
ADataset.DisableControls;
try
ADataset.First;
while not ADataset.Eof do
begin
AJSONObject := TJson.ObjectToJsonObject(ADataset);
Result.Add(AJSONObject);
ADataset.Next;
end;
finally
ADataset.EnableControls;
end;
end;

在上面的代碼中，我們定義了一個RecordsToJson函數，它接收一個TDataset參數，即我們需要轉換成json格式的記錄集。

首先，我們創建了一個TJSONArray對象Result，用于存放所有的記錄。

然后，我們通過調用ADataset.DisableControls方法，禁用TDataset對象的控件，以提高操作效率。接著，我們使用ADataset.First方法將游標定位在記錄集的第一條記錄上。

接下來，我們循環遍歷記錄集，直到游標到達記錄集的末尾。在每次循環中，我們使用JSON.ObjectToJsonObject方法將TDataset對象轉換成TJSONObject對象，然后添加到TJSONArray中。

最后，我們通過調用ADataset.EnableControls方法，啟用TDataset對象的控件。

在使用RecordsToJson函數返回記錄集的json格式時，我們只需要調用TJSONArray.ToString方法即可：

var
AJSONArray: TJSONArray;
begin
AJSONArray := RecordsToJson(MyDataset);
try
Memo1.Lines.Text := AJSONArray.ToString;
finally
AJSONArray.Free;
end;
end;

在上述代碼中，我們將TJSONArray對象轉換成字符串，并將其顯示在Memo1控件中。

通過使用上述方法，我們可以方便地將Delphi中的記錄集轉換成JSON格式，從而實現與客戶端和服務器端之間的數據傳輸。