829
社区成员
发帖
与我相关
我的任务
分享
var
sL: TStringList;
begin
sL:= TStringList.Create;
sL.Delimiter:= ' ';
sL.DelimitedText:= ‘业务1 业务2 业务3 业务4 业务5 业务6’;
ComboBox1.Clear;
ComboBox1.Items.AddStrings(sL);
sL.Free;
ComboBox1.ItemIndex:= 0;
Label1.Caption:= IntToStr(ComboBox1.Items.Capacity);
end;