关于listbox的问题 请大家帮忙~

我有个.ini文件   内容为  
  23333  
  43244  
  这样的不同的行   请问如果是listbox的内容为该ini文件？  
   
  没学过DELPHI手上也没资料希望大家能帮帮我 问题点数：20、回复次数：10Top

1 楼whbo（王红波（年轻人，要有所作为））回复于 2004-12-01 18:47:02 得分 0

请问如果是listbox的内容为该ini文件？//没明白你的意思。Top

2 楼richard_ouyang（爱象刀上的苹果）回复于 2004-12-01 18:50:11 得分 0

你是要把ini里面的东西给取出来吗？Top

3 楼richard_ouyang（爱象刀上的苹果）回复于 2004-12-01 18:50:46 得分 2

如果是，你先找个tstrings取出来用loadfromfileTop

4 楼ksaiy（阳光总在风雨后）回复于 2004-12-01 18:55:36 得分 2

不同的行,直接用LoadFromFile就可以读入了.  
  但ini的格式不是这样使用的.  
   
  这样:  
  [Option]  
  Str=123456Top

5 楼zzlingaaa（小舟）回复于 2004-12-01 18:59:36 得分 2

ini不是那样用的,用TIniFileTop

6 楼lengyang（冷阳）回复于 2004-12-02 03:47:48 得分 0

楼上的能说详细点么Top

7 楼zdq801104（【☆这个杀手不太冷☆】）回复于 2004-12-02 07:48:25 得分 2

我不怎么听的明白！请楼主再解释一下！Top

8 楼sailxia（小帆）回复于 2004-12-02 10:53:10 得分 2

如果要读取文本中的每一行,然后添加到ListBox的Items里面,可以用LoadFromFile();  
  如果是读取配置保存文件INI文件,要使用TiniFile;Top

9 楼lengyang（冷阳）回复于 2004-12-02 21:53:43 得分 0

如果要读取文本中的每一行,然后添加到ListBox的Items里面,可以用LoadFromFile();  
  如果是读取配置保存文件INI文件,要使用TiniFile;  
   
   
  能不能把2种方法给个例子   写谢谢楼上各位Top

10 楼XuDunYu（西门吹雪）回复于 2004-12-02 23:46:21 得分 10

unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs,   StdCtrls,   ExtCtrls,   ComCtrls,   DB,   DBTables,     inifiles;  
   
  type  
      TForm1   =   class(TForm)  
          Button1:   TButton;  
          ListBox1:   TListBox;  
          ListBox2:   TListBox;  
          ListBox3:   TListBox;  
          procedure   Button1Click(Sender:   TObject);  
          procedure   ListBox2Click(Sender:   TObject);  
          procedure   ListBox3DblClick(Sender:   TObject);  
      private  
          {   Private   declarations   }  
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;  
  implementation  
   
   
  {$R   *.dfm}  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      r:   TIniFile;  
  begin  
      r   :=   Tinifile.Create('e:\windows\necdev.ini');  
      listbox1.items.LoadFromFile('e:\windows\necdev.ini');//这是第一种方法  
      r.ReadSections(listbox2.items);  
      r.ReadSection(listbox2.items[0],listbox3.Items);  
      listbox2.SetFocus;  
      listbox2.ItemIndex   :=   0;  
      r.Free;  
  end;  
   
  procedure   TForm1.ListBox2Click(Sender:   TObject);//这是第二种方法  
  var  
      r:   TIniFile;  
  begin  
      r   :=   Tinifile.Create('e:\windows\necdev.ini');  
      r.ReadSection(listbox2.items[listbox2.ItemIndex],listbox3.Items);  
      r.Free;  
  end;  
   
  procedure   TForm1.ListBox3DblClick(Sender:   TObject);//这是第二种方法  
  var  
      r:   TIniFile;  
      s:string;  
  begin  
      r   :=   Tinifile.Create('e:\windows\necdev.ini');  
      s   :=   r.Readstring(listbox2.items[listbox2.ItemIndex],listbox3.Items[listbox3.ItemIndex],'');  
      showmessage(s);  
      r.Free;  
  end;  
   
  end.Top

相关问题

• 文件
• 内容
• listbox
• tlistbox
• loadfromfile
• ini文件
• tform
• tobject
• 使用
• sender

• 帖主：lengyang
• richard_ouyang
• ksaiy
• zzlingaaa
• zdq801104
• sailxia
• XuDunYu

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载