1:
2:
3:

[namen]
gruppe1=°Paul°,°Peter°,°Hans°
gruppe2=°Anne°,°Jochen°					

1:
2:

for i:=0 to gruppe1[size] do
listbox1.addline(gruppe1[i]);					

1:
2:

for i:=0 to gruppe1[size] do
listbox1.addline(gruppe1[i]);					

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

[Jungs]
Anzahl Jungen=3
Junge1=Paul
Junge2=Peter
Junge3=Hans

[Mädchen]
Anzahl Mädchen=2
Mädchen1=Anne
Mädchen2=Jochen					

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

uses IniFiles;

procedure xyz;
var Ini: TIniFile;
    i, j: Integer;
begin
 Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'Ini.ini'); //Ini öffnen
 i:=Ini.ReadInteger('Jungs', 'Anzahl Jungen', 0); //liest die Anzahl der Jungen aus, wenn kein gültiger Integerwert dort steht ergibt die Funktion 0
 for j:=1 to i do
  begin
   String[j]:=Ini.ReadString('Jungs', 'Junge'+IntToStr(j), ''); //liest den Jungen j ein
  end;
 FreeAndNil(Ini); //Freigeben der Ini
end;					

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

[Abschnittsname]
Wertname=Wert
Wertname=Wert
...

[Abschnittsname]
Wertname=Wert
Wertname=Wert
...					

1:

ini.WriteString(gruppewaehlen.text,'Gruppe',mitgliederlist.???  //Wie kann ich es machen das alle einträge in die ini kommen?					

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

procedure abc (Junge: String);
var Ini: TIniFile;
    i: Integer;
begin
 Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'Ini.ini'); //Ini öffnen
 i:=Ini.ReadInteger('Jungs', 'Anzahl Jungen', 0); //liest die Anzahl der Jungen aus, wenn kein gültiger Integerwert dort steht ergibt die Funktion 0
 inc(i); //erhöht die Jungs um eine Person
 Ini.WriteInteger('Jungs', 'Anzahl Jungen', i); //schreibt die neue Jungenanzahl in die Ini
 Ini.WriteString('Jungs', 'Junge'+IntToStr(i), Junge); //schreibt den Namen in die Ini
 FreeAndNil(Ini); //Freigeben der Ini
end;					

1:
2:

var
  MeinString: Array of String;					

1:
2:

var
  MeinString: Array[1..5] of String;