低分求代码 超简单 combobox1里添加01,02,,,12 加combobox1里添加01,02,,,12共十二个项。高效者拿分。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.FormCreate(Sender: TObject);const S='01,02,03,04,05,06,07,08,09,10,11,12';begin ComboBox1.Items.Text:=StringReplace(S,',',#13,[rfReplaceAll]);end; procedure TForm1.Button1Click(Sender: TObject);beginComboBox1.Items.Delimiter:=',';ComboBox1.Items.DelimitedText:='01,02,03,04,05,06,07,08,09,10,11,12';end; 如何比较一个数组中的元素的大小,如果有相同值的元素就用message出提示!?? 控件拖动的奇怪的问题 大家能帮忙看一看这段代码那里有问题吗,急!!! 关于打印 delphi中文说明(重发)(提供,同时求助) 一个关于动态地址的问题 新手提问:Adoquery查询结果使用 共享工程、窗体 我对Delphi真的是一点也不懂!现在我想要把一个string型拷成pchar型的。怎么办? 怎样使执行程序(exe文件)具备动态连接库(dll)的性质? 如何让子窗体不跑出主窗体的范围 求:delphi 程序自删除代码
const S='01,02,03,04,05,06,07,08,09,10,11,12';
begin
ComboBox1.Items.Text:=StringReplace(S,',',#13,[rfReplaceAll]);
end;
begin
ComboBox1.Items.Delimiter:=',';
ComboBox1.Items.DelimitedText:='01,02,03,04,05,06,07,08,09,10,11,12';
end;