急问:怎样把类似如下的一个字符串:永久;长期;短期,转换为一个在ComboBox控件下显示的下拉列表? str:='永久;长期;短期';j:=length(str);for i:=1 to j dobegin if str[i]=';' then str[i]:=$13;end;combobox1.intems.text:=str; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 ComboBox1.Items.Text := StringReplace('永久;长期;短期', ';', #13#10, [rfReplaceAll]); 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; 再次提问form的释放问题 Delphi 7 如何在TreeView里列出系统所有的文件夹 如何移动TXMLDocument的节点IXMLNode(交换两个节点)? 这样的SQL语句怎么写?(在线等) 请问,combox下拉菜单怎样清空? 高分等待:哪位高手能指点一下有关 Delphi 读写并口的方法!资料 等待中... SQL游标问题! Delphi程序员在北京能拿到的最高工资为几何? 在北京怎么找软件开发的工作? 我有一个有市场的项目要做,请帮我看看哦 呵呵呵!这个问题你能吗? 关于OleContainer的问题 ADO错误'缺少更新或刷新的键列信息'怎样解决?
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;