delphi？

EDIT 控件中 输入数据然后自动清空数据怎么实现？

解决方案 »

  1.   

    EDIT1输入0  EDIT2显示输入的0的个数
    比如0 EDIT2就是1 然后在输入0 EDIT2 就是2
    中间要把原来的0删除，再输入
    这个操作怎么实现
      

  2.   

    输入 edit.text:='张三';
    清空 edit.text:='';或edit.clear;既输入又清空，不是矛盾吗?
      

  3.   

    EDIT1输入0 EDIT2显示输入的0的个数
    比如0 EDIT2就是1 然后在输入0 EDIT2 就是2
      

  4.   

    定义十个变量0~9，edit1的keydown里判断key的值，对应以下内容则相应的变量自增给edit2赋值，然后清空edit1
        vk_0 $30   48
        vk_1 31    49
        vk_2 32    50
        vk_3 33    51
        vk_4 34    52
        vk_5 35    53
        vk_6 36    54
        vk_7 37    55
        vk_8 38    56
        vk_9 39    57
      

  5.   

    procedure TForm1.edt1Change(Sender: TObject);
    var
      i, count: Integer;
    begin
      count := 0;
      for i := 1 to Length(edt1.Text) do
      begin
        if (edt1.Text[i]= '0') then
          Inc(count);
      end;
      edt2.Text = IntToStr(count);
    end;
      

  6.   

    ！！不是求输入的字符串的长度啊！！！！！！
    请仔细看
    EDIT1输入0 EDIT2显示输入的0的个数
    比如0 EDIT2就是1 然后在输入0 EDIT2 就是2 
      

  7.   

    不是不会，而是不明白你的须求EDIT1只能输入0吗？
    既然要清除，那EDIT1只能输入一个字符吗？
    什么时候清除？
    EDIT2什么情况下才累加?
    EDIT1输入0 时EDIT2才累加或输入任何数都累加？
      

  8.   

    不是只能输入0 可以输入0-9的数字
    输入0 则EDIT2显示1
    然后将EDIT1中的0清除
    再次输入0 则 EDIT2中数据+1 就是2
      

  9.   

    EDIT1输入1 则EDIT3显示1的个数为1
    EDIT1再次输入1 则EDIT3显示1的个数为2