| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/5/7 15:57:20 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 如何读取一个文本文件，并将该文件的内容每一行添加到一个Listbox中, 之后我可以对文本内容进行添加、删除、修改操作，具体在Listbox中动态实现，并且将更新内容写入到文本文件中？请问如何实现？ 请教高手帮忙！！ 1。添加关键字时，要求不能添加重复关键字，如何实现？？ 2。删除时，可以对指定关键字进行删除 3。当选择某个关键字时可以使用进行修改 4。所有操作完后可以进行更新保存。 我现在第1条和第3条无法实现，请求高手。！
- |
|||||
| 作者： |
|
2004/5/7 16:16:10 | ||||
| 1楼： | 直接ListBox1.Items.LoadFromFile/SaveToFile就好了 你应该去看看TStrings/TStringList的用法了 ListBox.Items其实就是一个TStrings 1. if ListBox1.Items.IndexOf(关键字) >= 0 then 已存在 else 添加 3. var I: Integer; begin I := ListBox1.Items.IndexOf(关键字); if I >= 0 then ListBox1.Items[I] := 新关键字 end; ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/5/7 16:42:04 | ||||
| 2楼： | 当我点击listbox某一项时，如何在edit1中显示内容？？ 另外 ，当我修改某一项时，如何得到当前的关键字内容？ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/5/7 16:54:01 | ||||
| 3楼： | if ListBox1.ItemIndex < 0 then Edit1.Text := '' else Edit1.Text := ListBox1.Items[ListBox1.ItemIndex]; ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/5/7 18:13:56 | ||||
| 4楼： | 问题已解决，万分感谢！ ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
