Работа с компонентом memo

@nextend · Регистрация: 21.10.2014

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

Такой вопрос: Примерный код:

Delphi
1
2
3
4
5
Case RadioGroup1.ItemIndex of
 
0:sum:=sum+a;
1:sum:= sum+b;
2:sum:= sum+c;

При определённом выборе в RadioGroup в поле мемо должны выводиться результаты вычислений. Но при этом, если я меняю положение галочки, то новые записи должны заменять старые. и выписывался текст ('Имя') к примеру...Как это воспроизводится не пойму уже часа 2))
Заранее спасибо)

FaTaL-CS · 21.10.2014, 17:31

Тогда примерно так:

Delphi
1
2
3
4
5
6
7
Case RadioGroup1.ItemIndex of
 
0:sum:=sum+a;
1:sum:= sum+b;
2:sum:= sum+c;
end;
 Memo1.Lines.Text := sum;

@nextend · 21.10.2014, 17:45 **[ТС]**

Дело в том, что мне нужен примерно вот такой результат (Какой то текст - sum[В качестве числа])
Я наверное не правильно поставил вопрос)

Добавлено через 10 минут

Примерно так

@FBI-kz · 04.11.2014, 17:34

Delphi
1
2
3
4
5
6
7
Case RadioGroup1.ItemIndex of
 
0:sum:=sum+a;
1:sum:= sum+b;
2:sum:= sum+c;
end;
 Memo1.Text := 'Какой-то текст - '+sum;

@Puporev · 04.11.2014, 17:58

Введите 3 переменных и считайте для каждого типа вагона.
После ввода очередной суммы, очищайте Мемо и выводите 3 строки.

@KMSNasgool · 05.11.2014, 02:45

Мне не совсем понятна логика подсчета в вашей программе, но как работать с мемо попробую объяснить.
Если в поле TMemo вы заранее знаете строки в которых ВСЕГДА будут находиться нужные вам записи то нужно просто явно указать в какую строку писать:

Delphi
1
2
Memo1.Lines.Strings[0] := 'некая строка и сумма -' + IntToStr(sum); // Запись в первую строку
Memo1.Lines.Strings[1] := 'некая строка и сумма -' + IntToStr(sum); // Запись во вторую строку

Но при этом нужно учесть, что эти строки должны уже существовать. При первой записи (или инициализации приложения) необходимо их добавить

Delphi
1
Memo1.Lines.Add('новая строка');

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

@nextend 0 / 0 / 0 Регистрация: 21.10.2014 Сообщений: 2
	21.10.2014, 17:45 [ТС]
	Дело в том, что мне нужен примерно вот такой результат (Какой то текст - sum[В качестве числа]) Я наверное не правильно поставил вопрос) Добавлено через 10 минут Примерно так 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	04.11.2014, 17:58
	Введите 3 переменных и считайте для каждого типа вагона. После ввода очередной суммы, очищайте Мемо и выводите 3 строки. 0