做一个加法的XXX

Question

本人是在上班不可以看书！但是在学delphi要做一个加法器！代码怎么写就可以加了。
edit1.....后面的怎么写！书也是看的不多！但是也不可以看老板在这里啊。但是可以在delphi里做。（老板不明白英文哈哈！）

Answer 1

没看明白你要什么东西！？edit1.text :=IntToStr(inc(strToIntDef(edit1.text,0)));呵呵

Answer 2

edit1.text :=IntToStr(strtoint(edit1.text)+strtoint(edit2.text));不知道是不是你要的 呵呵

Answer 3

关键字：delphi，加法器，edit1 就这三个词！你重新造句一下，好不？！

Answer 4

不会是用
C=XiYi OR XiC OR YiC
S=Xi XOR Yi OR C
公式来构造加法器吧？

Answer 5

function Add(num1,num2:string):String;
const BitChar:array[Boolean] of char=('0','1');
var Carry:Boolean;i,Len:Integer;c1,c2:Char;
  function Adder(B1,B2:Boolean):Boolean;
  begin
    Result:=B1 XOR B2 XOR Carry;
    Carry:=(B1 And B2) Or (B1 And Carry) Or (B2 And Carry);  end;
  function PadLeft(Const s:string;require:Integer):String;
  var i:Integer;
  begin
    SetLength(Result,Require-Length(S));
    for i:=1 to Length(Result) do
      Result[i]:='0';
    Result:=Result+S;
  end;
begin
  Len:=Math.Max(Length(Num1),Length(Num2))+1;
  Num1:=PadLeft(Num1,Len);
  Num2:=PadLeft(Num2,Len);
  SetLength(Result,Len);
  Carry:=false;
  for i:=Len downto 2 do
  begin
    c1:=Num1[i];c2:=Num2[i];
    Result[i]:=BitChar[Adder(c1='1',c2='1')];
  end;
  Result[1]:=BitChar[Carry];
end;很BT～～～～～
Num1和Num2分别是01组成的字符串

Answer 6

感觉上有点像超级水贴了呢？！困惑ing！！＋ 关注！！！！

Answer 7

我要的是一个加法器。但是不知道写代码！
就这个意思！问题是老板在办公室的时候写的。写得比较急！自己也没看就发了！谢谢各位
今天才来看我这个问题！请各位谅解！
sxtdxvb(大傻瓜)：edit1.text :=IntToStr(strtoint(edit1.text)+strtoint(edit2.text));
这句话是什么意思？我是粗学者还看不明白希望你解释一下！多谢了……

Answer 8

to cfcoolboy(windows)：两个edit  的数字相加，显示到edit1。不过不安全，最好用strtointdef

Answer 9

to :boatzm(晓舟【塑料的玫瑰花】)
strtointdef
为什么要这个呢！还有别的简单的办法吗？？？
谢谢

Answer 10

不要用TEDIT,找数字型的EDIT控件,就用STRTOINT了

Answer 11

to :cfcoolboy(windows) 
我只是对你的这个问题来说。
sxtdxvb(大傻瓜)：edit1.text :=IntToStr(strtoint(edit1.text)+strtoint(edit2.text));
这句话是什么意思？我是粗学者还看不明白希望你解释一下！多谢了……用strtoint  当中间的字串为空时候会抛出异常，而strtointDef 会在出错的时候返回一个你给定的默认值，我认为更安全一些

Answer 12

各位小弟的这个问题还是没有解决啊！
我要的是俩个edit的数据之和的结果！在另外的窗口提示结果！
要得到这个结果的代码怎么写！！！！！
小弟在这里谢谢各位了…

Answer 13

晕了！～ 
1.放两个edit 到窗体上！放一个button 。
2.写代码在button click 事件中
showmessage(intToStr(strToIntDef(edit1.text,0) + strToTnt(edit2.text,0));好了完了，运行。就ok 了