Добавить условие в код Delphi XE

[kladsss]

Всем доброго времени суток. Помогите добавить условия в код:

Если выбран CheckBox1 то генерация идет со словаря Dict

Если выбран CheckBox1 и CheckBox2 то генерация идет со словаря Dict и Dict2

Если выбран CheckBox1, CheckBox2 и CheckBox3 то генерация идет со словаря Dict, Dict2 и Dict3

Если выбран CheckBox1, CheckBox2, CheckBox3 и CheckBox4 то генерация идет со словаря Dict, Dict2, Dict3 и Dict4.

То есть если в const задана длина 8 и выбран CheckBox1 и CheckBox2 то данные используются только со словаря Dict, Dict2 и на выходе получаем символьную строку состоящую из 8 символов (словарей Dict, Dict2).

const len=8; {длина}
        x=100; {кол-во создаваемых}
var
  Dict,Dict2,Dict3,Dict4:string;
 Pass:array[1..4] of string; 
 Pass2: array[1..4] of string;
  i,j: integer;
  f1 : text;
m1,m2,m3,m4:byte;
 
   .........................................
    Dict:='№123№123№123'; 
    Dict2:='2020data';
    Dict3:='>>>';
    Dict4:='N1,N2,N3,N4; {4 словари}
 
      Randomize;
 
            for i:=0 to x-1 do begin
              for j:=1 to 4 do begin Pass[j]:=''; Pass2[j]:=''; end;
 
                for j:=0 to 2 do Pass2[1]:=Pass2[1]+Dict[Random(25)+1]; {генерируем}
                for j:=0 to 1 do Pass2[2]:=Pass2[2]+Dict2[Random(25)+1];
                for j:=0 to 1 do Pass2[3]:=Pass2[3]+Dict3[Random(9)+1];
                 Pass2[4]:=Pass2[4]+Dict4[Random(21)+1];
 
             m1:=Random(3)+1;{генерируем место первой части кода}
             Pass[m1]:=Pass2[1];
            repeat
             m2:=Random(3)+1;
            until (m1<>m2);
            Pass[m2]:=Pass2[2];
 
            repeat
             m3:=Random(3)+1;
            until (m1<>m2)and(m1<>m3)and(m2<>m3);
            Pass[m3]:=Pass2[3];
 
            for j:=1 to 4 do
             if(j<>m1)and(j<>m2)and(j<>m3)then m4:=j;
            Pass[m4]:=Pass2[4];
 
writeln(f1, Pass[1]+Pass[2]+Pass[3]+Pass[4]);
        ................................................

[min@y™]

А во всех остальных случаях - ЩИТО делать?
И ваще, какова цель программы?

[kladsss]

Сообщение от min@y™

А во всех остальных случаях - ЩИТО делать?

Ну, если не выбран ни один чекбокс то просто вывести сообщение типа "Не выбран ни один чекбокс".

[min@y™]

Сообщение от kladsss

Ну, если не выбран ни один чекбокс то просто вывести сообщение типа "Не выбран ни один чекбокс".

А если выбраны 1 и 4, например?

[kladsss]

Сообщение от min@y™

А если выбраны 1 и 4, например?

Вот не подумал я, хорошо подметили!
То тогда генерация идет со словаря Dict1 и Dict4.

[min@y™]

Сообщение от kladsss

Вот не подумал я, хорошо подметили!
То тогда генерация идет со словаря Dict1 и Dict4.

Чо за генерация? Какова цель программы? Где ТЗ?
Код - ваще сраный трэш и жэсть. Входные и выходные данные напиши, бть.

[kladsss]

Сообщение от min@y™

Чо за генерация? Какова цель программы? Где ТЗ?
Код - ваще сраный трэш и жэсть. Входные и выходные данные напиши, бть.

Генерация случайных буквы + цифры, буквы + цифры + Символы. Цель программы генерация случайных значений для ячеек в офисных документах.

Ну входные данные - это документ в который потом буду вставлять полученные на выходе значения.

А выходные данные это эти же случайные комбинации из программы.

Ну как для меня, начинающего, то код сойдет. Хотя я и понимаю что код не идеальный.

[min@y™]

Сообщение от kladsss

Ну входные данные - это документ в который потом буду вставлять полученные на выходе значения.

Да неужели? А введённые юзером данные входными не являются?
Ну почему я тебя должен пытать вопросами про то, чего ты реально делать собираешься?

Сюда читай. Два раза читай!

Если после прочтения ты мне не напишешь реальную инфу, то можешь быть свободен.

[kladsss]

Сообщение от min@y™

Да неужели? А введённые юзером данные входными не являются?
Ну почему я тебя должен пытать вопросами про то, чего ты реально делать собираешься?

Сюда читай. Два раза читай!

Если после прочтения ты мне не напишешь реальную инфу, то можешь быть свободен.

Ну я же не спорю, почему такая реакция ?

В коде указаны вот:

Dict:='№123№123№123'; 
    Dict2:='2020data';
    Dict3:='>>>';
    Dict4:='N1,N2,N3,N4; {4 словаря}

Они могут изменяться.

Я не иду на конфликт а просто задал вопрос. Если есть возможность то помогите и только.

[min@y™]

Сообщение от kladsss

Ну я же не спорю, почему такая реакция ?

В коде указаны вот:

Dict:='№123№123№123'; 
    Dict2:='2020data';
    Dict3:='>>>';
    Dict4:='N1,N2,N3,N4; {4 словари}

Они могут изменяться.

Я не иду на конфликт а просто задал вопрос. Если есть возможность то помогите и только.

Да я до сих пор не могу допереть, чего ты хочешь сделать. Статью по ссылке прочитал? Сколько раз?