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

[packet1]
name=packet1
zahl=1 7 5
[packet2]
name=packet2
zahl=2 4
[packet3]
name=packet3
zahl=2 4 1 7					

1:
2:

if (((NOT ziffernliste_cb_bin) and ziffernliste_ini_bin) = 0) then
  ShowMessage('Alle INI-Ziffern sind angekreuzt!');					

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

[1]
name=paket1
zahl=1 7 5
[2]
name=paket2
zahl=2 4
[3]
name=paket3
zahl=2 4 1 7					

1:
2:
3:

[packete]
157=packet1
24=packet2					

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

12
14
15
17
24
25
27
45
47
57
---
124
125
127
145
147
.......					

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:
33:

procedure TForm1.Button1Click(Sender: TObject);
var
RuneIni : TIniFile;
Chk1:TCheckbox;Chk2:TCheckbox;Chk3:TCheckbox;Chk4:TCheckbox;Chk5:TCheckbox;Chk6:TCheckbox;
i : integer;
count : integer;
name : string;
rune1 : string;rune2 : string;rune3 : string;rune4 : string;rune5 : string;rune6 : string;

begin
ListBox1.Items.Clear;
RuneIni:=TIniFile.create(ExtractFilePath(ParamStr(0))+'runewords.ini');
count:=RuneIni.ReadInteger('config','count',0);
for i:=1 to count do
 begin
rune1:=RuneIni.ReadString(intToStr(i),'rune1','');
rune2:=RuneIni.ReadString(intToStr(i),'rune2','');
rune3:=RuneIni.ReadString(intToStr(i),'rune3',''); if rune3='' then rune3:=rune2;
rune4:=RuneIni.ReadString(intToStr(i),'rune4',''); if rune4='' then rune4:=rune2;
rune5:=RuneIni.ReadString(intToStr(i),'rune5',''); if rune5='' then rune5:=rune2;
rune6:=RuneIni.ReadString(intToStr(i),'rune6',''); if rune6='' then rune6:=rune2;
name:=RuneIni.ReadString(intToStr(i),'name','');

 Chk1:=TCheckbox(FindComponent('rune'+rune1));
 Chk2:=TCheckbox(FindComponent('rune'+rune2));
 Chk3:=TCheckbox(FindComponent('rune'+rune3));
 Chk4:=TCheckbox(FindComponent('rune'+rune4));
 Chk5:=TCheckbox(FindComponent('rune'+rune5));
 Chk6:=TCheckbox(FindComponent('rune'+rune6));
 if Chk1.Checked and Chk2.Checked and Chk3.Checked and Chk4.Checked and Chk5.Checked and Chk6.Checked then ListBox1.AddItem(Name,Listbox1);
 end;
 RuneIni.Free;
end;					

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:

[config]
count=2

[1]
name=Kein Plan
type=weapons only
info=only hc ladder
rune1=Tir
rune2=El
rune3=Sol
rune4=Ber
rune5=Tal
rune6=Ort
stat01=bla stat 01
stat02=bla stat 02
stat03=bla stat 03
stat04=bla stat 04

[2]
name=Enigma
type=armors only
info=only hc ladder
rune1=Jah
rune2=Ith
rune3=Ber
rune4=
rune5=
rune6=
stat01=bla stat 01424
stat02=bla stat 02442144
stat03=bla stat 0344124
stat04=bla stat 044214421					

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

if Chk1.Checked and 
   Chk2.Checked and
   Chk3.Checked and
   Chk4.Checked and
   Chk5.Checked and
   Chk6.Checked then
  ListBox1.AddItem(Name,TObject(i));					

1:

i := Integer(LixtBox1.Items.Objects[ListBox1.ItemIndex]);