杂感觉在绕口令啦 可以简化吗?if combobox1.Items.IndexOf(listbox1.Items[listbox1.itemindex])=-1 then
combobox1.Items.Add(listbox1.Items[listbox1.itemindex]);
combobox1.ItemIndex:=combobox1.Items.IndexOf(listbox1.items[listbox1.itemindex]);
combobox1.Items.Add(listbox1.Items[listbox1.itemindex]);
combobox1.ItemIndex:=combobox1.Items.IndexOf(listbox1.items[listbox1.itemindex]);
解决方案 »
- 【CSDN开心辞典】拥有钻石的ID有几个?
- IdTCPServer回传给IdTCPClient字符串失败
- 主窗体中的groupbox在打开子窗体后仍可在子窗体中看到,好像其位于最上层,连新打开的窗体也在它的下方
- 全分散尽求SQL语句!!
- 发布简单的delphi数据库程序,需要带哪几个文件?
- 为什么PageControl切换tabsheet时有白光晃动?
- 较难的问题,高手进吧:用UpdateResource如何修改DLL中的字符串?
- 有没有人可以提供一份完整的三层应用的源程序啊?
- 一个关于image的问题?
- FastReport 报表的RichView处理中文的BUG,请各位帮帮忙!
- Indy TCP发送字符串经常断线的问题,急等,问题解决马上给分,谢谢了!
- 在delphi里怎样实把access数据库导入sqlserver?
sTemp:string;
begin
sTemp:string;
begin
sTemp:=listbox1.Items[listbox1.itemindex];
if combobox1.Items.IndexOf(sTemp)=-1 then
begin
combobox1.Items.Add(sTemp);
combobox1.ItemIndex:=combobox1.Count-1;
end;