Работа с файлом txt в Delphi

Рейтинг: -1Ответов: 1Опубликовано: 24.05.2011

У меня есть файл, с данными, например такой:

ЧУ ЧУ Тренировка 24.05.2011 12:56:40
2
5
5
5
5
2
5
5
5
5
5
5
ЧУ ЧУ Тренировка 24.05.2011 21:41:27
2
2
5
2
2
5
2
2
2
5
2

Мне нужна функция, которая будет искать последний запуск программы, т.е. определять какая строка вида ЧУ ЧУ Тренировка 24.05.2011 12:56:40 старше, анализировать числа следующие далее, т.е. 2 и 5, и если цифра 2 встречается больше двух раз, то...я там придумаю что, но пока просто вывести showmessage('Ваша оценка 2'); Соответственно если все 5, или допустимо одна две 2ки, то showmessage('Ваша оценка 5'); Как это реализовать:?

delphi pascal
Источник: Stack Overflow на русском

Ответы

▲ 2

Ну всё просто.

Ищем строку ЧУ ЧУ .. Если нашли, то следующие цифры добавляем в какой то массив / коллекцию.

Если опять нашли строку ЧУ ЧУ, то это оказывается не последняя строка ( удаляем добавленные цифры из коллекции ), после чего опять добавляем эти цифры.

При прочтении файла у нас всегда будут последние данные...

зы: Код принципиально не пишу. Развивайтесь :)