属性名、变量名与 内部关键字 重名 加&

procedure TForm4.btn3Click(Sender: TObject);

var

  MyQj: TQJson;

  MyPrinter: TPrinter;

begin

  MyQj := TQJson.Create;

  try

    MyPrinter.name := 'A号打印机';

    MyPrinter.status := 'enabled';

    MyPrinter.&type := 'yes';

    MyQj.FromRecord<TPrinter>(MyPrinter);

    Memo1.Lines.Add(MyQj.AsJson);

  finally

    MyQj.Free;

  end;

end;