请各位大侠帮忙完成多项功能 关于操作txt文本

Question

问题1：去除list1中的偶数行
问题2：点击list1中的项目，显示其+1行（偶数行）显示在textbox1中
问题3：删除选中的list1中的行，删除文本中的行和其+1行
问题4：修改textbox1中的内容，点击保存后，能将记录修改到文本中假设文本为123.txt 奇数行为账号 偶数行为密码listtextbox

Answer 1

list1是listbox，textbox是Edit吧。。兄弟是从VC转型的么？

Answer 2

delphi 的代码
问题1：去除ListBox1: TListBox中的偶数行  我的意思是 比如
ListBox1列表显示 
abc
123
def
456
我想只显示英文字母这一行
问题2：我的意思是用Edit1: TEdit;想获取ListBox1中点击选中的这一行

Answer 3

如果是这样，不如改成 Name=Value 这种形式：
   abc=123
   def=456这样既清晰易读，还很容易单取 Name 或单取 Value。假如 I := List1.ItemIndex 不小于0，这时 I 为选中行的索引值，则：
   List1.Items.Names[I] 为选中行的账户名
   List1.Items.ValueFromIndex[I] 为选中行的口令

Answer 4

去偶行：
procedure TForm1.btn1Click(Sender: TObject);
var
  iCount : Integer;
begin
  for iCount := ListBox1.Items.Count-1 downto 0 do
  begin
    if ((iCount+1) mod 2) = 0 then
      ListBox1.Items.Delete(iCount);
  end;
end;

Answer 5

意思是选abc就删除123，选def就删除456是吗？