delphi 怎么将RzLisBox控件中得内容保存到目录下的mingzi.txt两段中？

Question

如：RzLisBox控件中内容为：
李强
王刚
赵欣瑜
孙丽静mingzi.txt中有两段：
#/名字头
#/名字尾保存后的内容为：
#/名字头
李强
王刚
赵欣瑜
孙丽静
#/名字尾
如果RzLisBox控件中内容改变保存后文本文件里#/名字头 和 #/名字尾间的内容也改变！？反过来也可以将文本文件里#/名字头 和 #/名字尾间的内容复制到 RzLisBox控件中！
请各位达人给个思路，或者给个小例子！谢谢！

Answer 1

重新写一遍，不过你用ini文件不是很方便

Answer 2

您的意思是 在放一个RzLisBox控件，存放：
#/名字头
李强
王刚
赵欣瑜
孙丽静
#/名字尾
读取 写入时 检测#/名字头 #/名字尾字串的位置！？
RzLisBox控件 写入 读取 的 代码怎么写呢？？

Answer 3

用一个 TstringList 载入 TXT ，那么从 (行 1 -- 行数 count - 2) 就是需要的内容，然后用 RzListbox.Items.Assign(TstringList),保存时候也是差不多，用 TstringList.Assign(RzListbox.Items),
然后将 #/名字头 insert(0)，#/名字头 add(),最后 RzListbox..Items.SaveToFile(TXT);

Answer 4

用一个 TstringList 载入 TXT ，那么从 (行 1 -- 行数 count - 2) 就是需要的内容，然后用 RzListbox.Items.Assign(TstringList),保存时候也是差不多，用 TstringList.Assign(RzListbox.Items),
然后将 #/名字头 insert(0)，#/名字尾 add(),最后 RzListbox..Items.SaveToFile(TXT);

Answer 5

用一个 TstringList 载入 TXT ，那么从 (行 1 -- 行数 count - 2) 就是需要的内容，然后用 RzListbox.Items.Assign(TstringList),保存时候也是差不多，用 TstringList.Assign(RzListbox.Items),
然后将 #/名字头 insert(0)，#/名字尾 add(),最后 TstringList.SaveToFile(TXT);

Answer 6

这个问题已经解决！是借助另一个RzListbox解决的！
写入这个RzListbox时没有困难很顺利！
 问题出现在法操作时！无法定位 #/名字头 和 #/名字尾标记的位置！
最后我用了两次for循环！第一次循环读取#/名字头 和  #/名字尾 的位置！
第二次循环 定位读出 值！稍后把 代码 发上来！大家看看！

Answer 7

谢谢您的指点！您的方法我是认真的看了的！可能我的问题叙述上有些问题！
 #/名字头和#/名字尾 的前后都有别的内容！所以光用insert(0) 和 count - 2不能确定名字头和名字尾在
RzLisBox控件的位置！
按照您的提点我才找到的方法！已经解决了问题！
在此对热心的sailxia(小帆)朋友道声感谢！
////
////将辅助所有控件内容 转存 到RzLisBox中
////
procedure Tform1.BCzhuancun(); //将所有控件内容 转存 到RzLisBox中
 var
 i:integer;
 t: string;
begin
    RzListBox_zhuancun.Clear;
    t:= '#/名字头/#';  // 单元的开始
    RzListBox_zhuancun.Items.Add(t) ;     //
  for i:=0 to self.RzListBox_Npicklist.Count-1 do
begin
    t := self.RzListBox_Npicklist.ItemCaption(i);
    RzListBox_zhuancun.Items.Add(t) ;
 end;
  t:= '#/名字尾/#';
  RzListBox_zhuancun.Items.Add(t) ;   //单元的结束end;
////
////将RzLisBox中内容赋值给 辅助所有控件
////
procedure Tform1.FZzhuancun(); //将RzLisBox中内容赋值给 所有控件
 var
 i,jwt,jww:integer;
 s: string;
begin
  for i:=0 to self.RzListBox_zhuancun.Count-1 do  //该循环确定#/名字头/#和#/名字尾/#的位置
begin
    s := self.RzListBox_zhuancun.ItemCaption(i);
    if (s='#/名字头/#') then begin jwt:=i;
         end else
             if (s='#/名字尾/#') then begin jww:=i;
                   end
                else continue
  end;RzListBox_Npicklist.Clear;
for i:=0 to self.RzListBox_zhuancun.Count-1 do  //这个循环赋值#/名字头/#和#/名字尾/#中间的内容
 begin
     if ((i>jwt) and (i<jww)) then begin
     s := self.RzListBox_zhuancun.ItemCaption(i);
     RzListBox_Npicklist.Items.Add(s);
     end
     else continue //继续下次循环
 end;
end;