Listview einträge laden funzt nicht ganz!!

[APP]

Hallo Wadim,

Code:

 

procedure TForm1.Button3Click(Sender: TObject); 
var a,b : integer; 
begin 

with  TIniFile.Create((ExtractFilePath(ParamStr(0))+'Einstellungen.ini')) do 
  a := readinteger('index','count',0);  //definiere ich schon beim speichern damit er weiß wieviel einträge er laden soll 
  label1.Caption := inttostr (a); 
  b := 1; 
  while b <= a do begin 
    with  TIniFile.Create((ExtractFilePath(ParamStr(0))+'Einstellungen.ini')) do begin 
      try 
      [color=red][b]ListItem := ListView1.Items.Add;[/b] [/color]
      listitem.Caption := readstring ('Erster Eintrag','Position' + inttostr(b),''); 
      listitem.SubItems.Add(readstring ('Zweiter Eintrag','Position' + inttostr(b),'')); 
      listitem.SubItems.Add('');  // da ich 3 einträge habe und der 3 vorest mal leer sein soll 
      b := b +1; 
      finally 
      free; 
      end; 
    end; 
  end; 
end;

Ich denke, Du mußt für jeden neuen Eintrag ein neues Listitem "adden".

Warum schreibst Du 2x

with TIniFile.Create((ExtractFilePath(ParamStr(0))+'Einstellungen.ini')) do