Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Michalich
10 / 9 / 2
Регистрация: 31.08.2011
Сообщений: 385
1

Как правильно записать

24.12.2016, 12:15. Просмотров 155. Ответов 2
Метки нет (Все метки)

На форме есть 6 checkbox. В каждом checkbox если checked выводим в memo строку , например - checkbox1 для checkbox1 ,checkbox2 для checkbox2 и т.д.
Как проверять какие checkbox помечены? и как создать условие?
Delphi
1
2
3
if (checkbox1=checked) and (checkbox2=checked) and (checkbox3=checked) and (checkbox4=checked) and (checkbox5=checked) and (checkbox6=checked)
 
if (checkbox1=checked) or (checkbox2=checked) or (checkbox3=checked) or (checkbox4=checked) or (checkbox5=checked) or (checkbox6=checked)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2016, 12:15
Ответы с готовыми решениями:

как правильно записать?
Здравствуйте я новичек в delphi поэтому и вопрос у меня как у новичка:) ...

Как правильно записать?
всем привет! Хочу создать программу типо поисковик ( будет искать в инете всё...

Как правильно записать?
Как правильно записать код: procedure TForm1.Button7Click(Sender: TObject);...

как правильно записать уравнение??
нужно высчитать интеграл уравнения у=х*е^x*sin(x); ( e^x-это е в степени...

Как правильно записать условие
Хочу чтобы при нажатии на кнопку воспроизводилась запись....

2
avstantso
72 / 71 / 43
Регистрация: 17.11.2016
Сообщений: 211
24.12.2016, 12:38 2
Вот вариант, когда для каждого отмеченного чекбокса выводится его имя в мемо:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  i : integer;
  Cmp : TComponent;
begin
 
  for i := 1 to 6 do 
  begin
    Cmp := FindComponent( Format('checkbox%d', [i]) );
 
    if (Cmp as TCheckBox).Checked then
      memo1.Lines.Add(Cmp.Name);
  end;
 
end;
0
cfbogd
botsik
259 / 259 / 140
Регистрация: 05.06.2016
Сообщений: 1,247
Записей в блоге: 1
24.12.2016, 13:58 3
Например так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to Componentcount-1 do
if Components[i] is TCheckbox then
if (Components[i] as TCheckbox).Checked then
with Components[i],memo1.lines do
begin
if lowercase(Name) = 'checkbox1' then Add('Строка для чэкбокса №1');
if lowercase(Name) = 'checkbox2' then Add('Строка для чэкбокса №2');
if lowercase(Name) = 'checkbox3' then Add('Строка для чэкбокса №3');
if lowercase(Name) = 'checkbox4' then Add('Строка для чэкбокса №4');
if lowercase(Name) = 'checkbox5' then Add('Строка для чэкбокса №5');
end;
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2016, 13:58

Как правильно записать выражение?
lg(2^x)+|x|+1

Как правильно записать выражение?
x^2+4x-5/x^9

Как правильно записать выражение?
tg(e)+(y^3)+3


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru