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

var TempList:TStringListbegin TemlList:=TStringList.Create

TemlList.LoadFromFile('1.text')

ListBox1.Items:=TemlList

TemlList.Freeendlistbox有双击事件，直接在它的双击事件里写就行了。

你得在一个数据库里找相应 的内容才行，啊

写edit的onchange事件

查找数据库

select * from 数据库 where 字段＝edit1.text+'%'

执行查询，把查找到的内容加入listbox就行了

在按钮的onclick里这样写：

Var Index :Integer

begin

For Index:=0 To Listbox.Items.Count -1 Do

IF Listbox.Selected[Index]=True Then Begin

edtText.Text := Listbox.Items[Index]//这里赋值。

Exit

End

end

---