1. Гость, мы просим Вас ознакомиться с Правилами Форума и Отказом от ответственности!

Результаты поиска

  1. JoLan
  2. JoLan
  3. JoLan
  4. JoLan
  5. JoLan
  6. 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; [img] К каждой професии добавляет число, равное кол-ву записей в секции Warrior. Не пойму в чем проблема :lol:
    Автор темы: JoLan, 27 июл 2010, ответов - 11, в разделе: Delphi
  7. JoLan
    Сообщение

    [Release] IconFinder

    хоть что-то
    Сообщение от: JoLan, 27 июл 2010 в разделе: PW Клиент
  8. JoLan
    Сообщение

    [Гайд] Консоль

    Хаос, плюсанул.
    Сообщение от: JoLan, 27 июл 2010 в разделе: PW Клиент
  9. JoLan
    65, НПЦ
    Сообщение от: JoLan, 25 июл 2010 в разделе: Архив
  10. JoLan
  11. JoLan
  12. JoLan
    нэ, именно xml
    Сообщение от: JoLan, 25 июл 2010 в разделе: Базы данных
  13. JoLan
  14. JoLan
  15. JoLan
  16. JoLan
  17. JoLan
  18. JoLan
  19. JoLan
  20. JoLan
    На правах апа
    Сообщение от: JoLan, 24 июл 2010 в разделе: Базы данных