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

[KljaGGsa]

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

[volvo]

и нужно элементарно определить количество меток и соответственно фрагментов текста.

Общее количество строк в файле...

var sL: TStringList;
begin
  sL := TStringList.Create;
  try
    sL.LoadFromFile('t.txt');
    ShowMessage(IntToStr(sl.Count)); // <--- ... вычисляется вот так ...
  finally
    sL.Free;
  end;
end;

..., а если его поделить на 2 - получишь количество фрагментов текста. Естественно, если внутри фрагмента может быть перевод строки, то придется чуть-чуть изменить алгоритм:

  sL := TStringList.Create; // Создаем СтрингЛист
  try
    sL.LoadFromFile('t.txt'); // читаем текст в Стринглист
    // при этом всё, что до первого перевода строки будет записано в первую строку СтрингЛиста,
    // после первого, но до второго - во вторую строку СтрингЛиста и т.д.
    // Т.е., текст разбивается по строкам...

    cnt := 0; // Обнуляем счетчик
    for i := 0 to sL.Count - 1 do // Проходим по всем строкам СтрингЛиста и проверяем их содержимое
      // если попытка перевести содержимое строки в число (TryStrToInt делает именно это)
      // удачна (функция TryStrToInt вернула True), значит это - метка, и счетчик меток увеличиваем
      // В случае неудачной попытки перевода в число TryStrToInt вернет False, а раз нельзя перевести
      // что-то в число, то это "что-то" не может быть меткой, это фрагмент текста
      if TryStrToInt(sL.Strings[i], value) Then Inc(cnt);

    ShowMessage(IntToStr(cnt)); // Показываем, чего насчитали
  finally
    sL.Free; // Удаляем СтрингЛист полностью, он нам не нужен больше
  end;

Сообщение отредактировано: volvo - 6.07.2009 15:06