Edit1.Text := '123456'; //设置值ShowMessage(Edit1.Text); //获得值ShowMessage(Trim(Edit1.Text)); //Trim 函数可以去前、后空格