二进制加法问题

[shuzhan87]

我现在可以将十进制转换为二进制 但要进行二进制的加法 如何进行


下面是我的转二进制
var
j:integer;
s:String;
begin
j:=strtoint(edit2.text) ;
s:='';
while j>=2 do
begin if(j mod 2)=1 then
begin
s:='1'+s;
j:=j div 2;
end
else
begin
s:='0'+s;
j:=j div 2;
end;
end;
s:=chr(ord('0')+j)+s;
label2.Caption:=s;

end;

[Seamour]

数就是数，进制只是表示数的方式，数的运算不依赖于进制，用Integer运算完之后爱表示成几进制就表示成几进制