Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 25.02.2012, 16:15
SCAUSER SCAUSER вне форума
Прохожий
 
Регистрация: 25.02.2012
Сообщения: 3
Репутация: 10
По умолчанию совместное использование memo и чекбоксов

помогите сделать простую задачу.

Написать программу которая выводит в поле Memo данные: Какими карточками пользуется пользователь, программа должна выводит сообщение (Вы не используете кредитные карточки) если ничего не выбрано. В программе использовать компоненты CheckBox и вспомогательную процедуру TestCard которая проверяет установлен ли флафок кредитной карточки.

натолкните криворукого на мыслю, с чего начать и чем закончить
Ответить с цитированием
  #2  
Старый 25.02.2012, 18:13
nixel nixel вне форума
Начинающий
 
Регистрация: 12.12.2011
Адрес: Москва
Сообщения: 150
Версия Delphi: XE2-U4
Репутация: 131
По умолчанию

Проблема с составлением алгоритма или с кодом?
Ответить с цитированием
  #3  
Старый 25.02.2012, 19:05
SCAUSER SCAUSER вне форума
Прохожий
 
Регистрация: 25.02.2012
Сообщения: 3
Репутация: 10
По умолчанию

Ну больше с кодом
Ответить с цитированием
  #4  
Старый 25.02.2012, 19:10
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

Можно так:
Код:
Memo1.Clear;
if (CheckBox1.Checked) or (CheckBox2.Checked) or (CheckBox3.Checked) or (CheckBox4.Checked) then
 begin
 Memo1.lines.Add('Вы используете...');
  if (CheckBox1.Checked) then Memo1.lines.Add('Visa');
  if (CheckBox2.Checked) then Memo1.lines.Add('Mastercard');
  if (CheckBox3.Checked) then Memo1.lines.Add('..');
  if (CheckBox4.Checked) then Memo1.lines.Add('..');
 end else
 begin
  Memo1.lines.Add('Вы не используете...');

 end;
Ответить с цитированием
Этот пользователь сказал Спасибо YVitaliy за это полезное сообщение:
SCAUSER (25.02.2012)
  #5  
Старый 25.02.2012, 19:54
SCAUSER SCAUSER вне форума
Прохожий
 
Регистрация: 25.02.2012
Сообщения: 3
Репутация: 10
По умолчанию

Именно так. Спасибо!
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 01:50.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025