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

解决方案 »

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

  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;
      

类似问题 »