Сортировка по словам(по началу строк) при загрузке из OpenDialog

@Ilda007 · Регистрация: 07.04.2020

Студворк — интернет-сервис помощи студентам

Доброго времени суток.
Есть фрагмент файла .txt

Например

Климов Сергей Александрович Космин Д.В. (Отв.)
Климов Сергей Александрович Космин Д.В. (Отв.); Бронникова А.О. (Отв.)
Агашин Денис Владимирович Бельских Л.А. (Отв.); Бронникова А.О. (Отв.)
Агашин Денис Владимирович Бельских Л.А. (Отв.); Бронникова А.О. (Отв.); Возженикова Н.В.
Агашин Денис Владимирович Космин Д.В. (Отв.); Маринин И.В.; Дворниченко Е.Е. (Отв.); Кузьмин Л.А. (Отв.)
Агашин Денис Владимирович Бельских Л.А. (Отв.); Бронникова А.О. (Отв.); Возженикова Н.В.
Агашин Денис Владимирович Бронникова А.О. (Отв.); Дворниченко Е.Е. (Отв.)
Агашин Денис Владимирович Бельских Л.А. (Отв.); Бронникова А.О. (Отв.); Возженикова Н.В.
Агашин Денис Владимирович Бельских Л.А. (Отв.)
Агашин Денис Владимирович Шингаркин Н.А.
Агашин Денис Владимирович Маринин И.В.; Космин Д.В.; Дворниченко Е.Е.; Николаева С.П.
Агашин Денис Владимирович Бронникова А.О. (Отв.); Скутина Е.С.
Климов Сергей Александрович Космин Д.В. (Отв.)

Данные между собой разделены табуляцией.
Как посчитать сколько строк повторяется Агашин, а сколько раз поторяется другой персонаж, суть в том что эти данные загружаются из txt файла
При readln использовании функции readln загружается вся строка

Моя рыба пока что такая, можно править

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure TForm1.BitBtn1Click(Sender: TObject);
var
 
OneF,TwoF: TextFile;                                 // Определяем тип текстовых файлов
i,kstr:integer;                                        // Количество строк "Количество запросов"
vip:array [1..800] of String;
 
begin
i:=1;
kstr:=0;                                            // Начальное значение строк
 
If OpenDialog1.Execute then                         // Ищем и открываем наш 1ый файл
    begin
    AssignFile(OneF, OpenDialog1.FileName);         // Устанавливаем взаимосвязь
    Reset(OneF);                                    // Открываем файл в режиме чтения
    While Not Eof(OneF) do                          // Устанавливаем условие пока не конец файла
        begin
        readln(OneF,vip[i],vip[i+1]);
        Memo1.Lines.Add(Vip[i]);
        kstr:=kstr+1;                               // Считываем общее число строк с первого файла
        i:=i+2;
        end;
    CloseFile(OneF);                                // Закрываем файл
    end;
    LabeledEdit1.Text:=IntToStr(kstr);
end;

@D1973 · 31.05.2020, 21:43

Сообщение от Ilda007

Вот какая ошибка выпала

Где-то обращаетесь к несозданному или уже уничтоженному объекту. А где - да кто его знает, Вашего кода нет...

Сообщение от Ilda007

Можно через данный метод?

Можно. Кто же Вам запретит - делайте на здоровье...

Не по теме:

Вот только, как по мне - слишком это громоздко и неоптимально: лишние циклы с прерыванием, преобразования строки в число и т.д...

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .