1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

[1]
Vorname=Max 
Nachname=Mustermann
Straße=Musterstraße
Nr=4
Plz=50000
Ort=Musterhausen
Vorwahl=051
Rufnummer=455645
Anrede=Herr

[2]
Vorname=Max 
Nachname=Mustermann
Straße=Musterstraße
Nr=4
Plz=50000
Ort=Musterhausen
Vorwahl=051
Rufnummer=455645
Anrede=Herr

[3]
Vorname=Max 
Nachname=Mustermann
Straße=Musterstraße
Nr=4
Plz=50000
Ort=Musterhausen
Vorwahl=051
Rufnummer=455645
Anrede=Herr                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

[Daten]
Count=2

Vorname1=Max 
Nachname1=Mustermann
Straße1=Musterstraße
Nr1=4
Plz1=50000
Ort1=Musterhausen
Vorwahl1=051
Rufnummer1=455645
Anrede1=Herr

Vorname2=Max 
Nachname2=Mustermann
Straße2=Musterstraße
Nr2=4
Plz2=50000
Ort2=Musterhausen
Vorwahl2=051
Rufnummer2=455645
Anrede2=Herr                    

1:
2:
3:
4:
5:

Anzahl := IniFile.ReadInteger('Daten', 'Count', 0);
for i := 1 to Anzahl do begin
  Name := IniFile.ReadString('Daten', 'Name'+IntToStr(i), '');
  //...
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

[Information]
Count=2

[Setting1]
Data=Foo

[Setting2]
Data=Foo                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var
  FileContents: TMemIniFile;
  Sections, SectionContents: TStringList;
  CurrentSection: string;
  MySettings: TObjectList<TSetting>;
begin
  ...
  FileContents.ReadSections(Sections);
  Sections.Delete(Sections.IndexOf('Information')); // Informations-Sektion löschen
  for CurrentSection in Sections do
  begin
    FileContents.ReadSectionValues(CurrentSection, SectionContents);
    MySettings.Add(TSetting.Create(SectionContents));
  end;
  ...                    

1:
2:
3:

  for CurrentSection in Sections do
    MySettings.Add(TSetting.Create(FileContents, CurrentSection));
  ...                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

[Daten]
Count=2
Vorname1=Sepp 
Nachname1=Maier
Straße1=Harrerstr.
Nr1=9
Plz1=5465123
Ort1=Berlin
Vorwahl1=051
Rufnummer1=54652
Anrede1=Herr
Vorname2=Sepp
Nachname2=Maier
Straße2=Schwimmbadstr.
Nr2=8
Plz2=645646
Ort2=Hamburg
Vorwahl2=068
Rufnummer2=546231
Anrede2=Herr                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm2.Button1Click(Sender: TObject);
var
anzahl:String;
i:string;
begin
Anzahl := TIniFile.ReadInteger('Daten', 'Count', 0);
for i := 1 to Anzahl do begin
  Listbox1.Items := TIniFile.ReadString('Daten', 'Name'+IntToStr(i), '');

end;                    

1:
2:
3:

[Error] Unit2.pas(34): This form of method call only allowed for class methods
[Error] Unit2.pas(35): For loop control variable must have ordinal type
[Error] Unit2.pas(36): There is no overloaded version of 'IntToStr' that can be called with these arguments                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm2.Button1Click(Sender: TObject);
var
anzahl:Integer;
i:Integer;
iniFile:TIniFile;
 filename: String;
begin
filename := ExtractFilePath(ParamStr(0)) + 'adressen.ini';
  TIniFile.Create(filename);
Anzahl := IniFile.ReadInteger('Daten', 'Count', 0);
for i := 1 to Anzahl do begin
  Listbox1.Items := IniFile.ReadString('Daten', 'Name'+IntToStr(i), '');

end;                    

1:

[Error] Unit2.pas(40): Incompatible types: 'TStrings' and 'String'                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm2.Button1Click(Sender: TObject);
  var
    Anzahl: Integer;
    i: Integer;
    IniFile: TIniFile;
    Filename: String;
begin
  Filename := ExtractFilePath(ParamStr(0)) +'adressen.ini';
  TIniFile.Create(filename);
  Anzahl := IniFile.ReadInteger('Daten', 'Count', 0);
  for i := 1 to Anzahl do begin
    Listbox1.Items.Add(IniFile.ReadString('Daten', 'Name'+IntToStr(i), ''));
  end;                    

1:

Anzahl := IniFile.ReadInteger('Daten', 'Count', 0);                    

1:
2:

var
  IniFile: TIniFile;                    

1:

 Anzahl := IniFile.ReadInteger('Daten', 'Count', 0);                    

1:

inifile := TIniFile.Create(filename);                    

1:
2:
3:
4:
5:
6:

procedure TForm2.ListBox1Click(Sender: TObject);
var i: integer;
begin
  for i := 0 to ListBox1.Count - 1 do
    if ListBox1.Selected[i] then label2.Caption := Listbox1.Items[i];
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm2.ListBox1Click(Sender: TObject);
  var
    i: Integer;
begin
  i := ListBox1.ItemIndex;
  if (i >= 0) then
    Label2.Caption := Listbox1.Items.Strings[i]
  else
    Label2.Caption := '';
end;