Delphi n、 按Shift+{后，第一行保留2个空格，但第二行保留4个空格，第三行保留6个空格，依此类推。此外，我真的希望我的块使用双斜杠，而不是大括号。 procedure TForm1.ProcessLists; var jItem: TJSONObjec

n、 按Shift+{后，第一行保留2个空格，但第二行保留4个空格，第三行保留6个空格，依此类推。此外，我真的希望我的块使用双斜杠，而不是大括号。

procedure TForm1.ProcessLists;
var
  jItem: TJSONObject;
  i: Integer;
begin
  while not ADOAllData.Eof do
  begin
    jItem := TJSONObject.Create;
    jItem.AddPair(TJSONPair.Create('list_id', ListID));
    for i := 0 to ADOAllData.Fields.Count - 1 do
    begin
      jItem.AddPair(TJSONPair.Create(ADOAllData.Fields[i].FieldName,
                                     ADOAllData.Fields[i].AsString));
    end;
    jArray.Add(jItem);
    ADOAllData.Next;
  end;
end;

procedure TForm1.ProcessLists;
var
  jItem: TJSONObject;
  i: Integer;
begin
  while not ADOAllData.Eof do
  begin
    jItem := TJSONObject.Create;
    jItem.AddPair(TJSONPair.Create('list_id', ListID));
//    for i := 0 to ADOAllData.Fields.Count - 1 do
//    begin
//      jItem.AddPair(TJSONPair.Create(ADOAllData.Fields[i].FieldName,
//                                     ADOAllData.Fields[i].AsString));
//    end;
    jArray.Add(jItem);
    ADOAllData.Next;
  end;
end;

procedure TForm1.ProcessLists;
var
  jItem: TJSONObject;
  i: Integer;
begin
  while not ADOAllData.Eof do
  begin
    jItem := TJSONObject.Create;
    jItem.AddPair(TJSONPair.Create('list_id', ListID));
    //for i := 0 to ADOAllData.Fields.Count - 1 do
    //begin
    //  jItem.AddPair(TJSONPair.Create(ADOAllData.Fields[i].FieldName,
    //                                 ADOAllData.Fields[i].AsString));
    //end;
    jArray.Add(jItem);
    ADOAllData.Next;
  end;
end;