有个小程序  我想实现这样的功能~1。读个文件,文件内容如下“...”代表省略ALIST
曹操 cc
刘备 lb
...
BLIST
无懈可击 wxkj
南蛮入侵 nmrq
...2。把这个文件的ALIST内容读到一个 checklistBox中,把BLIST读取到一个CombList中如何实现呢,嘿嘿,我刚学delphi没多久~~ 希望大家指点一下关键的地方和注意的地方,最好贴伪代码~~

解决方案 »

  1.   


    var
      list:TStringList;
      i,j:Integer;
    begin
      j := 1;
      list := TStringList.Create;
      list.LoadFromFile('c:\1.txt');
      for i := 0 to list.Count - 1 do
      begin
        if list.Strings[i] = 'BLIST' then
          j := 2;
        if (j = 1) and (list.Strings[i]<>'ALIST') and (list.Strings[i]<>'') then
        begin
          CheckListBox1.Items.Add(list.Strings[i]);
        end
        else if (j=2)  and (list.Strings[i]<>'BLIST') and (list.Strings[i]<>'') then
        begin
          ComboBox1.Items.Add(list.Strings[i]);
        end;
      end;
      list.Free;
    end;
      

  2.   

    如果是:
    [ALIST]
    曹操 cc
    刘备 lb
    ...
    [BLIST]
    无懈可击 wxkj
    南蛮入侵 nmrq
    ...
    就可以按ini方式处理,可以使用Tmeminifile类
      

  3.   

    顺便问大侠一个问题,那个checklistbox的 name和caption我想分开,即显示的是名称,然后它的唯一值是字母,我添加的时候要怎么添加呢~~ 谢谢~