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

 

 

procedure TForm4.btn3Click(Sender: TObject);
varMyQj: TQJson;MyPrinter: TPrinter;
beginMyQj := TQJson.Create;tryMyPrinter.name := 'A号打印机';MyPrinter.status := 'enabled';MyPrinter.&type := 'yes';MyQj.FromRecord<TPrinter>(MyPrinter);Memo1.Lines.Add(MyQj.AsJson);finallyMyQj.Free;end;
end;