Формирование списка

Ddv122 · Регистрация: 23.12.2010

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

Доброго времени суток .
Ребята прошу помощи. Что то я запутался дальше некуда.
Задача такова
есть 3 списка ( 3 memo)
1) Список имен - 10000 шт ( дубли и т.д)
1) Пример

Code
1
2
3
4
5
6
Дима
Вася
Леша
Дима
Настя
и т.д

2) Отсортированный список этих имен ( без дублей) ( 200 шт)

Code
1
2
3
4
Дима
Вася
Леша
Настя

3) Список с указанием полов по второму списку ( 200 штук)
к примеру такого вида

Code
1
2
3
4
Дима:муж
Вася:муж
Леша:муж
Настя:жен

Итоговая цель теперь разнести эти муж/жен в новый Memo . Ориентируясь 1 вым списком ,а базой с 3 его

Code
1
2
3
4
5
6
муж
муж
муж
муж
жен
и т.д

т.е
1 список - все имена
2 список по строен на базе первого с убраными дублями
3 список - на пазе второго с указанием пола
Итоговый список - на базе первого но с вытягиванием пола с 3 его списка

@demon_7 · 15.04.2015, 16:18

номера вроде совпадают

@demon_7 · 15.04.2015, 16:46

Разное написание наименования были у Амбровикс, Сумалек, Биофлор. Их приводим к однотипному написанию, и все работет корректно.
Более корректно написанный блок кнопки "сводный список"

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
void __fastcall TForm1::Button3Click(TObject *Sender)
{
TStringList *Pars=new TStringList;
Pars->Delimiter=';';
for (int i=0; i<StringGrid1->RowCount; i++)
                {
        for (int j=0; j<StringGrid2->RowCount; j++)
        {
        if (StringGrid2->Cells[1][j].Pos(StringGrid1->Cells[1][i])!=0 )
                        {
         StringGrid3->Cells[0][i]=i+1;
         StringGrid3->Cells[1][i]=StringGrid1->Cells[1][i];
         Pars->DelimitedText=StringGrid2->Cells[1][j];
         StringGrid3->Cells[2][i]=Pars->Strings[1];
                        }
        }
        StringGrid3->RowCount++;
                }
delete Pars;
}

Ddv122 · 15.04.2015, 17:01 **[ТС]**

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

так как препарат с одним и тем же названием встречается больше 1 раза, его различие лишь в написании с маленькой или большой буквы. (именно из за этой причины в сводный список вставляет пустые строки)

если я не путаю нету таких ( с большой и маленькой) ... Есть только похожие

Code
1
2
3
амбравикс
Амбровикс
Амброксол

Число сошлось , но много пустых строк. НО спасибо огромное за идею

@IrineK · 15.04.2015, 17:27

Может быть и с одним названием - но закупки разные.
Аброксол тендерный
Аброксол нетендерный и т.д.

Тут и бухгалтерию нужно учивать. Разные партии - разные цены.

@demon_7 · 15.04.2015, 18:36

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

если я не путаю нету таких ( с большой и маленькой) ... Есть только похожие

1. Есть.
2. Чтобы совесть была чиста я перед тем как уйти с работы в Excel'е сделал "Найти и заменить все" (амбровикс на Амбровикс) и так ко всем вышеуказанным препаратам. После чего, сводный список был без пустых строк.
Я допускаю вероятность, что я что то сделал не так, но проверьте сами.

@Почтальон · 15.04.2015, 20:06

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

Тут и бухгалтерию нужно учивать. Разные партии - разные цены.

немножко отклонюсь от темы, и обращусь к ТС:
неужели перенос данных в 1С идет

?

@demon_7 · 16.04.2015, 08:16

Как бе.

Ddv122 · 16.04.2015, 13:14 **[ТС]**

demon_7 , Спасибо огромное .

Сообщение от Почтальен

неужели перенос данных в 1С идет ?

Нет не идёт. Тут все просто есть таблица с 19к строки 10 колонками. С неё выбрано нужных 5782к( и в них 33 подразделения) .
Нужно ко всем 5782 к указать "разрядность" отеч/тенд/НЕТЕН/госз и выдать в конце общее количество отеч/тенд/НЕТЕН/госз по раздельности соблюдая другие 33 критерия.
Вот и появилась идея - составить БД индивидуумов для быстрой расстановки отеч/тенд/НЕТЕН/госз. А так же для их подсчета.
Под рукой был только портабельный C++ Builder 6 и 2 года его не открывания .
Регулярку написал быстро . А вот со структурой растерялся.

Спасибо всем за помощь - НО всё равно мне не понятно осталось к сожалению почему код с indexof не отрабатывает верно.

Новые блоги и статьи Все статьи Все блоги /
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))

@demon_7 260 / 192 / 60 Регистрация: 12.05.2013 Сообщений: 857
	15.04.2015, 16:18
	номера вроде совпадают Миниатюры 1

@IrineK 2023 / 1641 / 425 Регистрация: 23.02.2011 Сообщений: 6,002 Записей в блоге: 25
	15.04.2015, 17:27
	Может быть и с одним названием - но закупки разные. Аброксол тендерный Аброксол нетендерный и т.д. Тут и бухгалтерию нужно учивать. Разные партии - разные цены. 0

@demon_7 260 / 192 / 60 Регистрация: 12.05.2013 Сообщений: 857
	16.04.2015, 08:16
	Как бе. Миниатюры 1