Записи. Ввод и поиск

@Dimon_ZZZ · Регистрация: 02.11.2021

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

помогите пожалуйста написать код программы:
Запись: Монитор (производитель, диагональ, цвет)
 Задать исходное значение полей записи с клавиатуры (компоненты Edit)
 При нажатии на кнопку (Button1) значение полей записи заносятся в компонент Memo1.
 Задать критерий поиска. За произвольным полем записи.
 При нажатии на кнопку (Button2) результат поиска выводится в Memo2.

Delphi

type
monitor=record
firma:shortstring;
diag:integer;
color:shortstring;
end;

@eagle nest · 24.02.2022, 10:10

У вас установлен лазарус?
1) из палитры компонентов добавляем на форму нужные вам компоненты (edit - 3шт, memo - 2шт, button - 2шт)
как сделайте отпишитесь

Добавлено через 57 минут
2) добавляем на форму еще 1 edit для ввода текста поиска

Добавлено через 2 минуты
3) два раза кликаем на button1 и пишем код в обработчик:

Pascal

1	memo1.Lines.Add(edit1.text + #$9 + edit2.text + #$9 + edit3.text);

Добавлено через 1 минуту
4) два раза кликаем на button2 и добавляем код:

Pascal

var
  s:string;
  i:integer;
begin
  memo2.Clear;
  For i:=0 to Memo1.Lines.Count-1 do
begin
  s := Memo1.Lines[i];
  If Pos(edit4.text, s)<>0 Then
  Memo2.Lines.Add(s);
end;

все, программа соответствует условию

@AzAtom · 24.02.2022, 10:27

Сообщение от eagle nest

все, программа соответствует условию

Не соответствует. По условию нужно использовать записи.

@D1973 · 24.02.2022, 10:54

Да и задание - дичь какая-то. Полное ощущение, что выдернуто (кем не знаю, ТС-ом или его учителем) из контекста задачи на поиск данных в типизированных файлах...

Новые блоги и статьи
Преобразование полей (элементов управления содержимым) в обычный текст РоΜа 23.01.2025 Возникла необходимость преобразовать поля в текст (те, что на вкладке разработчик добавляются) . Помучившись родил следующее: Sub ПоляВТекст() Преобразует все поля в текст (даты, текст,. . .	Как проверить существование директории в скрипте Bash bt_guru 23.01.2025 При разработке скриптов Bash одной из ключевых задач является корректная работа с файловой системой, где особое место занимает проверка существования директорий. Эта операция становится критически. . .	Как работают срезы (slice) в Python bytestream 23.01.2025 Python предоставляет разработчикам мощный и гибкий инструмент для работы с последовательностями данных - срезы (slices). Эта функциональность позволяет извлекать, модифицировать и управлять. . .	Как удалить подмодуль (submodule) в Git bytestream 23.01.2025 При работе с крупными проектами в системе контроля версий Git разработчики часто сталкиваются с необходимостью управления зависимостями и внешними компонентами. Подмодули (submodules) представляют. . .	В чем разница между @staticmethod и @classmethod в Python. Декораторы методов bytestream 23.01.2025 В Python декораторы методов представляют собой мощный инструмент, позволяющий модифицировать поведение функций и методов без изменения их исходного кода. Эта возможность является одной из. . .	Как преобразовать InputStream в String в Java bytestream 23.01.2025 В мире Java-разработки работа с потоками данных является одной из ключевых операций при создании современных приложений. InputStream, как фундаментальный класс для обработки входных потоков данных,. . .
Как обновить форк (ответвление) репозитория в Git bytestream 23.01.2025 Одним из наиболее мощных инструментов Git для организации совместной работы является механизм форкинга репозиториев, который позволяет создавать независимые копии проектов для дальнейшей разработки. . . .	Как работает async/await в C#. Асинхронное программирование в .NET bytestream 23.01.2025 Введение в асинхронное программирование Асинхронное программирование представляет собой важнейшую концепцию современной разработки программного обеспечения, особенно в контексте создания. . .	КуМир: полное руководство bytestream 23.01.2025 Введение в КуМир: история создания и назначение КуМир (Комплект Учебных МИров) представляет собой образовательную среду программирования, которая была создана для обучения основам алгоритмизации и. . .	Что такое OLAP. Где и как использовать многомерный анализ данных bytestream 23.01.2025 Введение в OLAP-технологии В современном мире бизнес-аналитика и обработка больших массивов данных играют ключевую роль в принятии стратегических решений. Организации накапливают огромные объемы. . .	MongoDB: что это, для чего нужна и как использовать bytestream 23.01.2025 Введение в MongoDB: современная документоориентированная СУБД В современном мире разработки программного обеспечения выбор правильной системы управления базами данных является критически важным. . .	Как использовать закрытый ключ шифрования в Git. Шифрование в Git bytestream 23.01.2025 Установка и настройка закрытых ключей в Git предоставляет дополнительный уровень безопасности для работы с репозиториями. Для начала необходимо создать пару ключей, обычно это осуществляется с. . .

@AzAtom Модератор 3758 / 2262 / 784 Регистрация: 15.11.2015 Сообщений: 9,012
	24.02.2022, 10:27	3
	Сообщение от eagle nest все, программа соответствует условию Не соответствует. По условию нужно использовать записи. 0

@D1973 Модератор 9653 / 6260 / 2428 Регистрация: 21.01.2014 Сообщений: 26,700 Записей в блоге: 3
	24.02.2022, 10:54	4
	Да и задание - дичь какая-то. Полное ощущение, что выдернуто (кем не знаю, ТС-ом или его учителем) из контекста задачи на поиск данных в типизированных файлах... 0