回 帖 发 新 帖 刷新版面

主题:哪位前辈给我看一下我的程序怎么错了

我是一位新手,请前辈们帮我看一下
procedure TForm1.Button1Click(Sender: TObject) ;
begin
  edit1.Text:='123';
   if edit1.Text:='123'  then
   memo1.clear

end.

回复列表 (共2个回复)

沙发

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:='123';
if edit1.Text='123'  then//注意
memo1.clear
end;

板凳

谢谢!

我来回复

您尚未登录,请登录后再回复。点此登录或注册