Чтение и вывод ini-файла

[JoLan]

Добрый день. Есть ini-файл такого содержания:

[Bowmaster]
Sum1=200000
Name1=Neron
[Warrior]
Sum1=200000
Name1=Belum
[Mage]
Sum1=200000
Name1=kirdan
[Priest]
Sum1=200000
Name1=Вжик
[Werewolf]
Sum1=200000
Name1=Зак
Sum2=200000
Name2=Тестчо
[Druid]
Sum1=200000
Name1=Suffocate

Задача: посчитать в каждой секции кол-во народа и дописать соответствующее число к классу. Мой вариант кода:

procedure TForm1.sRadioGroup1Click(Sender: TObject);
const a:array[0..5]of string=('Воин','Маг','Лучник','Жрец','Оборотень','Друид');
    b:array[1..6]of string=('Warrior','Mage','Bowmaster','Priest','Werewolf','Druid');
var k1,i1,i2:integer;
    s:string;
begin
StringGrid1.RowCount:=2;
StringGrid1.Cells[0,1]:='';
StringGrid1.Cells[1,1]:='';
JIni:=TiniFile.Create(extractfilepath(Application.ExeName)+'judges.ini');
case sRadioGroup1.ItemIndex of
    0:s:='Warrior';
    1:s:='Mage';
    2:s:='Bowmaster';
    3:s:='Priest';
    4:s:='Werewolf';
    5:s:='Druid';
end;
    begin
    for k1:=1 to JIni.InstanceSize do begin
    StringGrid1.Cells[0,k1]:=JIni.ReadString(s,'Sum'+inttostr(k1),'');
    StringGrid1.Cells[1,k1]:=JIni.ReadString(s,'Name'+inttostr(k1),'');
    if (StringGrid1.Cells[0,k1]<>'') and
    (StringGrid1.Cells[1,k1]<>'') then StringGrid1.RowCount:=StringGrid1.RowCount+1
    else if StringGrid1.RowCount>2 then begin
    StringGrid1.RowCount:=StringGrid1.RowCount-1;
    break;
    JIni.Free;
    end
    else begin break; JIni.Free;
    end;
    end;
    end;
//-------------- Собсно алгоритм высчитывания кол-ва --------------
JIni:=TiniFile.Create(extractfilepath(Application.ExeName)+'judges.ini');
for i1:=0 to 5 do begin
    for i2:=1 to JIni.InstanceSize do begin
    s:=JIni.ReadString(b[i2],'Name'+inttostr(i2),'');
    if s<>'' then sRadioGroup1.Items.Strings[i1]:=a[i1]+' ('+inttostr(i2)+')'
    else break;
    end;
end;
JIni.Free;
//--------------------------------------------------------------------
end;

К каждой професии добавляет число, равное кол-ву записей в секции Warrior. Не пойму в чем проблема...

P.S. А тут нету тэга [spoiler]? o_O

[Stilet]

for i2:=1 to JIni.InstanceSize do begin

InstanceSize - это метод, показывающий сколько экземпляров объектов создано и не имеет никакого отношения к INI файлу,Тебе нужен совсем другой метод ReadSectionValues, который читает всю секцию в TStrings. а вообще не хочешь ли ты пояснить что должно писаться в скобках.

[JoLan]

Сообщение от Stilet

а вообще не хочешь ли ты пояснить что должно писаться в скобках.

Name[n], Sum[n] собсно в скобках этот самый n с каждой секции

Сообщение от Stilet

Тебе нужен совсем другой метод ReadSectionValues

Можно пример? ^^

[evg_m]

Tinifile readsections F1 Delphi Example

[JoLan]

На ум приходит только:

JIni:=TiniFile.Create(extractfilepath(Application.ExeName)+'judges.ini');
for i1:=0 to 5 do begin
  JIni.ReadSection(b[i1],Listbox1.Items);
    for i2:=1 to ListBox1.Items.Count do begin
    s:=JIni.ReadString(b[i2],'Name'+inttostr(i2),'');
    if s<>'' then sRadioGroup1.Items.Strings[i1]:=a[i1]+' ('+inttostr(i2)+')'
    else break;
    end;
end;
JIni.Free;

[JoLan]

Решил проблему, хоть и через ж:

JIni:=TiniFile.Create(extractfilepath(Application.ExeName)+'judges.ini');
  for i1:=0 to 5 do begin
  JIni.ReadSection(b[i1],Listbox1.Items);
  sRadioGroup1.Items.Strings[i1]:=a[i1]+' ('+inttostr(round(Listbox1.Items.Count/2))+')';
  end;
JIni.Free;