O owner001 Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-27 #1 我在Form窗体中加了一个edit和一个button，我想让button有这样的一个功能：运行后，如果在edit中输入的汉字是我想要的，那么按下button之后就会提示回答正确，否则提示回答错误。其中关键的是我不知道if then语句的巧妙用法，请大家帮忙
我在Form窗体中加了一个edit和一个button，我想让button有这样的一个功能：运行后，如果在edit中输入的汉字是我想要的，那么按下button之后就会提示回答正确，否则提示回答错误。其中关键的是我不知道if then语句的巧妙用法，请大家帮忙
A ADOConnection Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-27 #3 if edit1.text='你要的字' then begin showmessage(Ture); exit; end else begin showmessage(False); exit; end;
if edit1.text='你要的字' then begin showmessage(Ture); exit; end else begin showmessage(False); exit; end;
D dey-999 Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-27 #4 procedure TForm1.Button1Click(Sender: TObject); begin if edit1.Text='' then showmessage('OK') else showmessage('NG'); end;
procedure TForm1.Button1Click(Sender: TObject); begin if edit1.Text='' then showmessage('OK') else showmessage('NG'); end;
O owner001 Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-27 #7 呵呵，是我没有表述清楚，问题就是：当我往edit中写入汉字的时候，我要用一个if语句来判断这些汉字是不是我期待的汉字，比如，假设我期待的汉字是"朋友"，那么只要在edit中输入的其它任何非"朋友"这两个字的话，在按下button按钮之后，都出现出错提示。不知道我这次有没有表述清楚呢？
呵呵，是我没有表述清楚，问题就是：当我往edit中写入汉字的时候，我要用一个if语句来判断这些汉字是不是我期待的汉字，比如，假设我期待的汉字是"朋友"，那么只要在edit中输入的其它任何非"朋友"这两个字的话，在按下button按钮之后，都出现出错提示。不知道我这次有没有表述清楚呢？
F fjjb Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-27 #8 额的神 if edit.text = '朋友' then showmessage('输入正确') else showmessage('输入不正确')
