整形不能超过256
b:=Byte(StrToInt(n));
var
s:
string
;
b:
Byte
begin
s := Edit1
.
Text;
b :=
(StrToInt(s));
end
博客园 © 2004-2025 浙公网安备 33010602011771号 浙ICP备2021040463号-3