随便做做,还有更多更好的办法 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); 里边调用它就可以了
就是啊 声明一个全局变量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;
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);
里边调用它就可以了
声明一个全局变量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;