TEdit1.text:=TComboBox1.Text+'卫生局'
TEdit1.text:=TComboBox1.Text+'卫生局'

我想把TComboBox1中除了最后两个汉字的其他字加上一个字符串'卫生局'，放到TEdit中。我用的是下面的代码
TEdit1.text:=pchar(copy(TComboBox1.Text,length(TComboBox1.Text)-3,4)+'卫生局')
比如TComboBox1.Text:='昆明市直辖' 显示的是“昆明市治郎”
如果我在卫生局前面加个空格，则显示“昆明市?卫生局”

我想要得到得效果是“昆明市卫生局”

谢谢大家了

[解决办法]

edit1.Text:=Copy(ComboBox1.Text,1,length(ComboBox1.Text)-4)+'卫生局'