Question

delphi7 在两个编辑框中各输入一串字符,确定两串字符是否一致,相同ture，不同fasle。 求源代码。

Answer 1

楼主，10分给我吧，Delphi已经有这个功能了，不用写源代码了

SameText(edit1.text,edit2.text) ;
--------------------------我是解释的分界线----------------------------
当Edit1的内容等于Edit2的内容时，SameText返回True
所以实际中可以这样用： if SameText(edit1.text,edit2.text) then Showmessage(‘两个字符串一致哟亲~’) else ShowMessage('哎，不一样呢');

Answer 2

procedure button1click(sender:Tobject);
begin
if edit1.text=edit2.text then showmessage('same') else showmessage('different');
end;