Delphi Integer 转成单字节

整形不能超过256

b:=Byte(StrToInt(n));

var

  s: string;

  b: Byte;

begin

  s := Edit1.Text;

  b := Byte(StrToInt(s));

end;