level 5
procedure TForm1.Button1Click(Sender: TObject);
var sno,sname:string;
begin sno :edit1.Text;
sname:edit2.Text;
edit3.Text:="欢迎"+sno+sname;
end;
2013年02月16日 08点02分
1
level 10
正确写法:
procedure TForm1.Button1Click(Sender: TObject);
var
sno, sname: string;
begin
sno := edit1.Text;
sname := edit2.Text;
edit3.Text := '欢迎' + sno + sname;
end;
2013年02月16日 08点02分
3
![[呵呵]](/static/emoticons/u5475u5475.png)
谢谢~
2013年02月16日 08点02分