如何判断edit的内容两次输入的是否为同一个值

解决方案 »

  1.   

    随便做做,还有更多更好的办法
    procedure TForm1.Edit1Change(Sender: TObject);
    var
      str1: string;
    begin
      if edit1.Text='' then
      begin
        str1:='现在是第一次输入数据';
        str2:=edit1.Text;
        showmessage(str1);
      end
      else
      begin
        if edit1.Text=str2 then
        begin
          str1:='输入的数据相同';
          showmessage(str1);
        end
        else
        begin
          str1:='输入的数据不同';
          str2:=edit1.Text;
          showmessage(str1);
        end;
      end;
    end;
    其中 str2 是全局变量。
    或者你就自己建一个过程,输入-->判断-->得出结论-->保存输入-->再输入-->再判断.......
    然后在 procedure TForm1.Edit1Change(Sender: TObject);
    里边调用它就可以了
      

  2.   

    就是啊 
    声明一个全局变量s:widestring='';然后procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
    if key=#13 then
      begin
          if s<>'' then
            begin
                if s<> edit1.Text then
                    form1.Caption:='不等'
                else
                    form1.Caption:='等';
            end;
       s:=edit1.Text;
      end;
    end;