Как найти максимальное число в тексте? Опции

[KljaGGsa]

Если есть текстовый файл Т.txt , в тексте которого содержится несколько трехзначных чисел, как должна выглядеть процедура, с помощью которой можно было бы найти максимальное число и присвоить его целочисленной переменной i ?

[volvo]

Смотри:

procedure TForm1.Button2Click(Sender: TObject);
var
  sL, sL2: TStringList;
  i, value, p: integer;
begin
  sL := TStringList.Create;
  try
    sL.LoadFromFile('t.txt'); // Получаем текст, разбитый на строки

    sL2 := TStringList.Create; // создаем доп. СтрингЛист
    try
      p := 5; // Будем искать в файле фрагмент № 5 !!!

      i := 0; // Начиная с нулевой строки sL проходим ...
      while p > 0 do begin
        // Пока не дойдем до числа, являющегося меткой
        // нужного нам фрагмента, проверяем строки ...
        if TryStrToInt(sL.Strings[i], value) then begin
          dec(p); // Очередная метка? Уменьшаем P ...
        end;
        inc(i); // следующая строка СтрингЛиста
      end;

      // Все, раз мы здесь - то нашли уже метку нужного фрагмента,
      // теперь надо считать во второй СтрингЛист все строки ДО
      // очередной, следующей метки (или до конца sL, смотря что
      // случится раньше).
      while (i < sL.Count) and (not TryStrToInt(sL.Strings[i], value)) do
      begin
        sL2.Add(sL.Strings[i]); inc(i); // Не метка? Добавляем в sL2
      end;

      // Ну, этого можно было и не делать, я просто отобразил
      // полученный фрагмент в Memo
      Memo1.Lines.Assign(sL2);
    finally
      sL2.Free; // Все, больше sL2 не нужен ...
    end;

  finally
    sL.Free; // sL тоже ...
  end;
end;

Переменная P должна содержать номер фрагмента, который ищется. Единственное, о чем ты должна позаботиться - это о том, что такой фрагмент действительно есть, P не должно быть больше числа фрагментов в файле. Мой код не проверяет этот случай. Хочешь - дописывай проверку сама, я этого делать не буду.