Выбор действия CheckBox

[Volkogriz]

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

PHP код:

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')
end 


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

[dosha]

if CheckBox1.Checked  then 
Setup.LoadFromFile(ExtractFilePath(Application.ExeName)+'\text.txt')
else
if CheckBox2.Checked  then 
Setup.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Netext.txt')
else
if CheckBox2.Checked  then 
Setup.LoadFromFile(ExtractFilePath(Application.ExeName)+'\SovsemNetext.txt')

у тя получаеться выполняються два условия, и прога выполняет тольк первое из двух.Раздели и будет всё норм или убери else.

[Volkogriz]

Я забыл сказать что есть и промежуточьные действия например:

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

три действия я бы так и зделал'я думал об этом' но как выполнить ещё три когда сочетание CheckBox разное вот где мучиюсь!

Заранее благадарю!
С уважением,
Volkogriz!

[Пепел Феникса]

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

учимся правильно строить условия.(и здесь лучше ComboBox или же RadioGroup)

[Volkogriz]

три CheckBox выполняют 7 вариантов действия
Я просто сократил код!
Как я могу это зделать с помощью RadioGroup?
Вариант из 7 Radio_батонов не гадится.
Нужно всего три CheckBox Вот только как правельно написать код я не догадываюся
Заранее благадарю!
С уважением,
Volkogriz!

[ArtGrek]

7 вариантов:
1 0 0 -
0 1 0 -
0 0 1 -
1 1 0 -
1 0 1 -
0 1 1 -
1 1 1 -
напиши на каждыи какои фаил должен открываца?

[ArtGrek]

if CheckBox1.Checked =true or CheckBox2.Checked =false or CheckBox3.Checked =true then

если не ошибаюс у тебя в первои проверке False будет толко в 1 случае, ето если
0 1 0
зачем ты еше потом 2 проверки на етот случаи делаеш???

распиши что должно происходит в каждом из вариантов, попробую зделат

[Volkogriz]

ArtGrek
Извенябсь я не понял )

[ArtGrek]

7 вариантов:
1- CheckBox.Checked:=True;
0- CheckBox.Checked:=False
CheckBox: 1 2 3
1 0 0 - ? напиши какои фаил должен открица в такои комбинации
0 1 0 - ?
0 0 1 - ?
1 1 0 - ?
1 0 1 - ?
0 1 1 - ?
1 1 1 - ?

[Volkogriz]

Если я правильно понял )
Setup это:

Function TForm1.Setup:TStringList;
begin
1 0 0 - Setup.LoadFromFile(ExtractFilePath(Application.ExeName)+'\text.txt')
0 1 0 - Setup.LoadFromFile(ExtractFilePath(Application.ExeName)+'\2text.txt')
0 0 1 - Setup.LoadFromFile(ExtractFilePath(Application.ExeName)+'\3text.txt')
1 1 0 - Setup.LoadFromFile(ExtractFilePath(Application.ExeName)+'\3text.txt') 
1 0 1 - Setup.LoadFromFile(ExtractFilePath(Application.ExeName)+'\4text.txt')
0 1 1 - Setup.LoadFromFile(ExtractFilePath(Application.ExeName)+'\5text.txt')
1 1 1 - Setup.Free

С уважением,
Volkogriz!