TListView + Odczyt z INI

Wiecie... Mam problem z TListViewem i INI. Szukałem już na forum i w necie, ale nie znalazłem odpowiedzi. No ale przejdźmy do rzeczy.

Mam plik ini:

[CashDelight]
Firma=http://www.cashdelight.com
cos=cos
cos2=cos2

[Bank Macieja]
Firma=http://www.bankmacieja.com
cos=cos
cos2=cos2

Chcę zrobić tak aby wszystkie zmienne

Firma

dodawane były do SubItemsów ListViewa. Jak to zrobić pomocy ! [stuk]

Wiecie... Mam problem z TListViewem i INI. Szukałem już na forum i w necie, ale nie znalazłem odpowiedzi. No ale przejdźmy do rzeczy.

Mam plik ini:

[CashDelight]
Firma=http://www.cashdelight.com
cos=cos
cos2=cos2

[Bank Macieja]
Firma=http://www.bankmacieja.com
cos=cos
cos2=cos2

Chcę zrobić tak aby wszystkie zmienne

Firma

dodawane były do SubItemsów ListViewa. Jak to zrobić pomocy ! [stuk]

Załaduj np. do ListView nazwy sekcji pliku INI.

var
  Temp             : TStringList;
  ListItem : TListItem;
begin
   temp := TStringList.Create;
   try
      dane.ReadSections(temp);  // dane to twoj plik ini, nalezy go wczesniej zainicjowac....
.
.
   finally
         temp.Free;
   end;

Teraz w peli przejdź po tych wszystkich sekcjach sprawdzając, czy istnieje wpis ciebie interesujący, np.

      for i:= temp.Count-1 downto 0 do
        begin
                if Dane.ValueExists(Temp[i],'Firma') then
                  begin 
                       ListItem= TwojListView.Items.Add;
                       ListItem.Caption:='to jest Caption';
                       ListItem.SubItems.Add(Dane.ReadString(Temp[i],'Firma','');
                  end else
                  begin
                    // cos tam
                  end;
          end;
end; 

Mniej wiecej tak, dopasuj sobie...
Pozdr, Pepe

Dzieki bardzo :) Pozdro