VPF::Выбор действия CheckBox - Форум программистов

Volkogriz

Дата 22.12.2010, 01:13 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1

Доброе время суток!
Проблема такая, есть три CheckBox какждый выполняет своё действие,
но выполняет зараза неправильно!!!
Вот код:

Код


if CheckBox1.Checked =true or CheckBox2.Checked =false or CheckBox3.Checked =true then 
Setup.LoadFromFile(ExtractFilePath(Application.ExeName)+'\text.txt') 
else 
if CheckBox1.Checked =true or CheckBox2.Checked =true or CheckBox3.Checked =false then 
Setup.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Netext.txt') 
else 
if CheckBox1.Checked =false or CheckBox2.Checked =true or CheckBox3.Checked =true then 
Setup.LoadFromFile(ExtractFilePath(Application.ExeName)+'\SovsemNetext.txt') 
else 
................................
end

три CheckBox выполняют 7 вариантов действия
Я просто сократил код!
вот так я делал, но грузится не тот файл
Памагите плиз!
Заранее благадарю!
С уважением,
Volkogriz!

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

Данкинг

Дата 22.12.2010, 01:35 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Тут небось путаница с else'ами. Зачем их столько?

Код


if CheckBox1.Checked =true or CheckBox2.Checked =false or CheckBox3.Checked =true then 
 Setup.LoadFromFile(ExtractFilePath(Application.ExeName)+'\text.txt') ;
if CheckBox1.Checked =true or CheckBox2.Checked =true or CheckBox3.Checked =false then 
 Setup.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Netext.txt');
if CheckBox1.Checked =false or CheckBox2.Checked =true or CheckBox3.Checked =true then 
 Setup.LoadFromFile(ExtractFilePath(Application.ExeName)+'\SovsemNetext.txt');

Кстати, "CheckBox1.Checked =true" можно вполне заменить на "CheckBox1.Checked". smile

--------------------

There's nothing left but silent epitaphs.

Volkogriz

Дата 22.12.2010, 01:50 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1

Хочу обяснить подробней.
При каждом сочетании вариантов true false загружается опредилённый файл.
Сочитаний 7

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

БелАмор

Дата 22.12.2010, 02:29 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 209
Регистрация: 10.6.2010
Где: Россия

Репутация: 5
Всего: 17

Решение:
Замените or на and и расставьте скобки.

Рекомендации:
1. Не сравнивайте значения логических выражеий с True или False, поскольку то, что вы сравниваете, уже имеет логический тип и может использоваться напрямую (c или без not).
2. В повторяющейся части оставляйте минимально необходимые действия, а общее - выносите наружу и пишите один раз.
3. ExtractFilePath выдаёт путь с завершающей обратной наклонной чертой, поэтому черта у вас будет удваваться. Либо уберите черту в начале ваших имён, либо замените ExtractFilePath на ExtractFileDir, который выдаёт путь без завершающей черты. Первое предпочтительней.
4. Форматируйте код, используйте отступы.

Выглядеть всё это может примерно так:

Код


var
  FileName: String;
begin
  if CheckBox1.Checked and (not CheckBox2.Checked) and CheckBox3.Checked then
    FileName := 'text.txt'
  else if CheckBox1.Checked and CheckBox2.Checked and (not CheckBox3.Checked) then
    FileName := 'Netext.txt'
  else if (not CheckBox1.Checked) and CheckBox2.Checked and CheckBox3.Checked then
    FileName := 'SovsemNetext.txt'
  else
    Exit;

  Setup.LoadFromFile(ExtractFilePath(Application.ExeName) + FileName);
end;

Тут можно всё очень сильно оптимизировать, но лучше пока не запутывать вас дополнительно.

Данкинг

Дата 22.12.2010, 02:36 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Цитата(БелАмор @ 22.12.2010, 02:29

)

ExtractFilePath выдаёт путь с завершающей обратной наклонной чертой, поэтому черта у вас будет удваваться.

Кстати, я тоже всегда так пишу, и никогда ошибок не было, даже не думал, что двойная черта получается.

--------------------

There's nothing left but silent epitaphs.

CROTishka

Дата 27.12.2010, 17:32 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 30.7.2009

Репутация: 1
Всего: 2

Автор, а ты в курсе, что есть такие компоненты, как TRadioButton, TRadioGroup и т.д.?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »