procedure TForm1.Button1Click(Sender: TObject);
var
strLine,stradd:string;
i,j:integer;
F: TextFile;
begin
try
AssignFile(F, 'c:\1.ini');
Reset(F);
except
Showmessage('err');
end;
strLine := '';
while not eof(F) do begin
Readln(F, strLine);
if trim(strLine) = '' then begin
Continue;
end else begin
i:=pos('[',strline);j:=pos(']',strline);
if (i> 0) and (j> 0) then begin
stradd:=copy(strline,i+1,j-i-1);
if stradd='' then continue;
listbox1.Items.Add(stradd);
var
StrList: TStringList;
i: integer;
Str: String;
begin
StrList := TStringList.Create;
for i := 0 to StrList.Count - 1 do
begin
Str := Trim(StrList.String[i]);
if Str[1] <> '[' then
ListBox1.items.add(Str);
end;
end;