Y yzhshi Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-21 #3 什么意思?下面代码,有不少废话,不知是否可以? procedure TForm1.Button1Click(Sender: TObject); var f: Byte; a: Integer; begin a:=122; f:=a; f:=byte(a); ShowMessage(IntToStr(f)); a:=1221221; f:=a; f:=byte(a); ShowMessage(IntToStr(f)); end;
什么意思?下面代码,有不少废话,不知是否可以? procedure TForm1.Button1Click(Sender: TObject); var f: Byte; a: Integer; begin a:=122; f:=a; f:=byte(a); ShowMessage(IntToStr(f)); a:=1221221; f:=a; f:=byte(a); ShowMessage(IntToStr(f)); end;