急问：怎样把类似如下的一个字符串：永久；长期；短期，转换为一个在ComboBox控件下显示的下拉列表？

Question

str:='永久；长期；短期';
j:=length(str);
for i:=1 to j do
begin
  if str[i]=';' then
     str[i]:=$13;
end;
combobox1.intems.text:=str;

Answer 1

ComboBox1.Items.Text := StringReplace('永久；长期；短期', '；', #13#10, [rfReplaceAll]);

Answer 2

const sStr = '永久,长期,短期';
var dStr,sTemp : string;
begin
  dStr := sStr;
  ComboBox.Items.Clear;  whlie (dStr <> '') do
  begin
    sTemp := Copy(dStr,1,Pos(',',dStr);
    if sTemp <> '' then ComboBox.Items.Add(sTemp);
    dStr := Copy(dStr,Pos(sTemp,dStr)+2,Length(dStr));
  end;
end;