estranho o meu for só faz uma vez , pq ?

[mestre fyoda 1]

Detalhe , tenho 2 Sections no arquivo Ini .

 

Procedure TForm_Principal.Preenche_ListView;

var Item : TListItem;

Arq : TiniFile;

i : Integer;

begin

Item := Lista.Items.Add;

arq := TiniFile.Create('c:\Agenda.Ini');

arq.ReadSections(combobox.Items);

for i:= 0 to combobox.Items.Count-1 do

begin

Item.Caption := combobox.Items;

Item.SubItems.Add(arq.ReadString(combobox.Items,'Celular','Erro'));

end;

arq.Free;

end;

[mestre fyoda 1]

ja consegui .

Procedure TForm_Principal.Preenche_ListView;

var Item : TListItem;

Arq : TiniFile;

i : Integer;

begin

arq := TiniFile.Create('c:\Agenda.Ini');

arq.ReadSections(combobox.Items);

 

for i:= 0 to combobox.Items.Count-1 do

with Lista.Items.Add do

begin

Caption := combobox.Items;

SubItems.add(arq.ReadString(combobox.Items,'Celular','Erro'));

end;

arq.Free;

end;