Поиск максимального числа

[celovec]

Содержимое ini файла:

[user info]
andrej=3
volodja=14
vasja=14
anja=5

Помогите пожалуйста сделать цикл который найдет и покажет 2 людей у которых больше всего число после =.
Строк с именами в файле может быть больше чем я показал.

[chertovich]

В INI нельзя получать параметры, не зная их названия. Поэтому сравнивай через if

[evg_m]

В справке по Tinifile Delpli Example

This example reads the Transfer section of the myapp.ini file into a memo and changes one of the strings in the INI file when Button1 is clicked. When Button2 is clicked, the myapp.ini file is restored to its initial state, using the values stored in the memo.
Before you run this example, you must add the IniFiles unit to the uses clause of your unit.

Warning: Do not click button2 before you have clicked button1!

procedure TForm1.Button1Click(Sender: TObject);
var
  MyIniFile: TIniFile;
  begin
  MyIniFile := TIniFile.Create('myapp.ini');
  Memo1.Clear;
  MyIniFile.ReadSectionValues('Transfer', Memo1.Lines);
  if Memo1.Lines.Values['Title1'] <> 'Picture Painter' then
    MyIniFile.WriteString('Transfer', 'Title1', 'Picture Painter');
  MyIniFile.Free;
end;

+ F1 TStringList

[Serge_Bliznykov]

позволю себе верный ответ evg_m проиллюстрировать работающим примером кода:

procedure TForm1.Button1Click(Sender: TObject);
Const
  SectionName = 'user info';
var
  TS : TstringList;
  MyIniFile: TIniFile;
  i, MaxIndex, CurValue, MaxValue : integer;
begin
  MyIniFile := TIniFile.Create(ExtractFilePath(ParamStr(0))+'myapp.ini');
  TS := TstringList.Create;
  MyIniFile.ReadSection(SectionName, TS);

  if TS.Count=0 then
        Application.MessageBox( PChar('Нет ни одной записи в секции "'+SectionName+'"!'+#13+#10+
        'Нечего тут искать!'), 'Ошибка', MB_ICONERROR or MB_OK)
  else begin
    MaxIndex := 0;
    MaxValue := MyIniFile.ReadInteger(SectionName, TS.Strings[MaxIndex],0);
    for i:=1 to TS.Count-1 do begin
       CurValue := MyIniFile.ReadInteger(SectionName, TS.Strings[i],0);
       if CurValue > MaxValue then begin
         MaxIndex := i;
         MaxValue := CurValue;
       end;
    end;
    Application.MessageBox(PChar('Максимальная величина равна '+IntToStr(MaxValue)
       +#13+#10+'Найдена у "'+TS.Strings[MaxIndex]+'"'),
       'Результат', MB_ICONINFORMATION or MB_OK);
   end;


  FreeAndNil(TS);
  FreeAndNil(MyIniFile);
end;

p.s. если несколько пользователей имеют максимум,
то выведется только первое имя с максимальной величиной. Абсолютно несложно чуть-чуть доработать программу так, чтобы выводились все имена. (если в этом есть необходимость, конечно!)

[phomm]

F1 на ReadSectionValues (tinifile) :
procedure ReadSectionValues(const Section: String; Strings: TStrings); override;

потом только распарсить строки с учетом знака =

альтернативный ход вместо распарсивания - Strings property (TValueListEditor) , в который можно и передать получаемые строки из вышеназванной процедуры, т.е. Dainifile.ReadSectionValues('Sectio n_name', TValueListEditor.Strings);
в результате получим разделенные по колонкам строки ключей и значений, и обращаясь через стандартные свойства TValueListEditor'a к ним, получить все данные в простом виде, юзайте справку по оным, да и вообще, юзайте справку