摘要：
版本1： procedure TForm1.Button2Click(Sender: TObject); var vFS: TFileStream; A1: Integer; begin A1 := $07EB; //要写入的机器码 ShowMessage(IntToStr(A1)); //变成了1 阅读全文
摘要：
方法1：通过两个控件中转实现（笨） procedure TForm3.Edit1Change(Sender: TObject); begin if Length(Edit1.Text) = 2 then begin Edit2.Text := Edit1.Text + Edit2.Text; Edi 阅读全文