var
a,b: Byte;
a := 1;
b := Byte(a xor $FF); //取反
b := b+1;
var i:byte;
begin
i:=1;
i:=(not i)+1;
var i:integer;
begin
i:=1;
i:=(i xor $FFFFFFFF)+1;
var
a,b: Byte;
begin
a := strtoint(edit1.Text);
b := Byte(a xor $FF);
b := b+1;
memo1.Lines.Add(inttostr(b));
end;
var a:integer;
begin
a:=45;
a:=-a;
edit1.Text := inttostr(a+1);
end;
我是新手，看这样行吗？
a:=0-a+1;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024