Вывод теста файла в memo по условию

@Vonikilz · Регистрация: 28.10.2022

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

Выводим минимальный возраст и максимальный, в memo должны выводится только те, чей возраст подходит в указанный диапазон.
Я смог только сделать так, чтобы работало с конкретным значением из combobox, но не обязательно именно его использовать, можно например edit.
Вот код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm2.ComboBox1Click(Sender: TObject);
var t:tstringlist; i,k:integer; 
begin
 memo1.Clear;
 t:=tstringlist.Create;
 t.LoadFromFile('Dog.txt');
 k:=0;
for i:=0 to t.Count-1 do 
if pos(combobox1.Text,t[i])>0 then begin
 k:=1;
 memo1.Lines.Add(t[i]);
end;
if k=0 then showmessage('Нет таких');
 t.Free;
end;

@D1973 · 27.04.2023, 05:02

Сообщение от Пытливый

получается, что порода владельца Алабай

Я тоже обратил на это внимание.

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

для теста больше и не надо

Еще как надо!

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

Так ничего от количества не изменится

Vonikilz, до Вас в самом деле не доходит, что людям просто в лом набирать самостоятельно этот дурацкий файл? Все, что от Вас просят - это сделать такой файл и выложить его в тему. Но вы уже несколько дней тупите, выкладываете никому не нужные картинки и который раз перепечатываете свое задание.

Файл готовый, на 10 записей минимум, давайте - как еще-то объяснить?

Хотя... Можете и не выкладывать: кроме Вас это вообще нафиг никому не надо.

@Пытливый · 27.04.2023, 11:09

Изучайте, добавляйте формы по заданию, мне и одной достаточно.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение 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 и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .