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

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;