Question

delphi如何将文件中的内容加到listbox中？

还有，如何实现：双击listbox中的选项如何执行一定的命令？

Answer 1

var TempList:TStringList;begin TemlList:=TStringList.Create;
TemlList.LoadFromFile('1.text');
ListBox1.Items:=TemlList;
TemlList.Free;end;listbox有双击事件，直接在它的双击事件里写就行了。

Answer 2

1.从CDS中将值赋给listbox

CDS_Class.First;
for i := 0 to CDS_Class.RecordCount-1 do
begin
Lbx_Class.Items.AddObject(CDS_Class.FieldByName('CDS中字段名').Text,nil);
CDS_Class.Next;
end;
2.从ini文件中赋值给listbox
myinifile：=Tinifile.create('d:\1.ini');//打开D盘的 1.ini 文件。
myinifile.readstring('小节名','关键字','缺省值')；//读取字符型数据。
myinifile.redainteger（'小节名','关键字','缺省值');//读取整数型数据。
myinifile.readbool（'小节名','关键字','缺省值');//读取逻辑型数据。
LBX_Class.Items.add('填写取到的ini中的值');

Answer 3

listbox的事件据说很少，可以选择listview控件，双击后出现双击事件。但是也给你个listbox的例子 listbox主要方法ListBox2.Items.Add(ListBox1.Items[ListBox1.ItemIndex]);
ListBox1.Items.Delete(ListBox1.ItemIndex);例子 //多选
var
i,j:integer;
begin
j:=Listbox1.items.count;
i:=0;
while i<j do
begin
if Listbox1.items[i].sellected then
begin
Listbox2.items.add(Listbox1.items[i].string);
Listbox1.items.delete;
Dec(j);
dec(i);
end;
inc(i);
end;
end;

Answer 4

首先你得读文件，一般txt或者ini的，这里txt方便一些吧。
ListBox1.Items.Add('')
能整个文件读最好，不能就一行一行加，百度一下delphi操作txt吧，至于listbox好弄