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

Question

我有个.ini文件 内容为
23333
43244
这样的不同的行 请问如果是listbox的内容为该ini文件？没学过DELPHI手上也没资料希望大家能帮帮我

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

unit Unit1;interfaceuses
  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.