Case

[Host-2013]

1. объясните мне назначение Case пожалуйста, кучу сайтов по нему пересмотрел так и не понял как его использовать... сложный он какой то...
2. подскажите тип, что то вроде Boolean только содержит не True\False, а 0\1

[BDA]

1. http://www.delphisources.ru/pages/fa.../Case.php.html
"case - вместо тысячи if"
2. А зачем? Делаете ord(t), где t - булева переменная, вот Вам 0 и 1.

[Host-2013]

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

1. http://www.delphisources.ru/pages/fa.../Case.php.html
"case - вместо тысячи if"
2. А зачем? Делаете ord(t), где t - булева переменная, вот Вам 0 и 1.

1. читал, все равно не ясно

// Вычисления также могут использоваться в операторе case
number := 17;
Case number mod 2 of
0 : ShowMessage(IntToStr(Number)+' mod 2 = 0');
1 : ShowMessage(IntToStr(Number)+' mod 2 = 1');
else ShowMessage(IntToStr(Number)+' mod 2 неизвестно');
end;
end;

а если надо if number<>0 к примеру, или еще какое то мудреное условие?

2. скорее всего не подойдет, мне надо сделать в параметрах функции переменную которая может принимать значения 0 и 1

п.с. добавлю еще вопрос:
3. как объединить множества? к примеру есть

type Alphabet_RU_Big = ('А'..'Я');
     Alphabet_RU_Small = ('а'..'я');
     Alphabet_EN_Big = ('A'..'Z');
     Alphabet_EN_Small = ('a'..'z');

тут еще правда не хватает спец символов кстати это еще 1 вопрос: 4. как получить все спец символы (!"№;%:?*....)?
так вот как потом объединять такие множества? смысл в том что хочу создать функцию выдающую рандомный символ по заданным критериям, то есть что то типа: Function RandomSymbols(Count: integer; Ru_Big, Ru_Small, En_Big, En_Small, Numbers, Spec_symbols: Boolean): string;
и надо если Ru_Big и En_Small стоят 1, то 2 множества объединить и дальше уже рандомом как то выбрать символ

[Stilet]

или еще какое то мудреное условие?

Тогда Case отдыхает

скорее всего не подойдет, мне надо сделать в параметрах функции переменную которая может принимать значения 0 и 1

Подойдет если сделаешь эту переменку типа byte

[BDA]

1. Никаких мудреных условий в case.
В лучшем случае можно задать диапазон или несколько диапазонов чисел, например:

var
  number: integer;
begin
  number := 25;
  Case number of
    1 .. 19:
      ShowMessage(IntToStr(number) + ' меньше 20');
    25, 30, 35, 40, 45:
      ShowMessage(IntToStr(number) + ' ,больше 20, меньше 50 и кратно 5');
  else
    ShowMessage(IntToStr(number) + ' не знаю, что сказать');
  end;
end;

2. Объявите свой тип, делов-то:

type
  bit = 0 .. 1;
...
function f(t: bit): integer;
...

3. А зачем множества?
Сделайте константные строки:

const
  rus = 'абвг';
  eng = 'abc';
...
Function RandomSymbols(Count: integer; symbols: string): string;
...
RandomSymbols(1, rus + eng);

4. Берете таблицу символов и выписываете

[Host-2013]

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

3. А зачем множества?
Сделайте константные строки:

const
  rus = 'абвг';
  eng = 'abc';
...
Function RandomSymbols(Count: integer; symbols: string): string;
...
RandomSymbols(1, rus + eng);

4. Берете таблицу символов и выписываете

3. ну хочу я множества !!! как минимум потому что удобно как у меня в функции проставил нужные значения единицы, не нужные нули и ок, а так еще писать rus eng, а ведь там еще по регистрам у меня... гемор же... чисто в использовании, проще уж один раз пострадать гемором при написании функции
4. я просто надеялся что есть какая нибудь функция -_- кстати а chr не может их выдать? может там с какого то по какой то номер они идут я хз...

[BDA]

4. http://upload.wikimedia.org/wikipedi...Code_Chart.svg
3. Ну геморойтесь
Вы не можете взять рандомный элемент из множества, т.е. Вам придется делать:
Получать 1 множество символов, сливая все требуемые
Преобразовывать множество в массив символов
Брать рандомный символ

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

[Host-2013]

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

Получать 1 множество символов, сливая все требуемые
Преобразовывать множество в массив символов
Брать рандомный символ

с этого места поподробнее пожалуйста, особенно про слив множеств

[BDA]

function randoms(smask: byte): char;
const
  Alphabet_RU_Big: set of char = ['А' .. 'Я'];
  Alphabet_RU_Small: set of char = ['а' .. 'я'];
  Alphabet_EN_Big: set of char = ['A' .. 'Z'];
  Alphabet_EN_Small: set of char = ['a' .. 'z'];
var
  s: set of char;
  str: string;
  i: char;
  len: integer;
begin
  s := [];
  if smask and 1 > 0 then
    s := s + Alphabet_RU_Big;
  if smask and 2 > 0 then
    s := s + Alphabet_RU_Small;
  if smask and 4 > 0 then
    s := s + Alphabet_EN_Big;
  if smask and 8 > 0 then
    s := s + Alphabet_EN_Small;
  str := '';
  for i := low(i) to high(i) do
    if i in s then
      str := str + i;
  len := length(str);
  if len > 0 then
    randoms := str[random(len) + 1]
  else
    randoms := ' ';
end;

[Host-2013]

BDA, большое спасибо вот что получилось в итоге, посмотрите вроде все правильно?

unit alphabet;

interface

Function RandomSymbols(Count: integer; Ru_Big, Ru_Small, En_Big, En_Small, Numbers, Spec_symbols: Boolean): string;

implementation

type bit = 0..1;

Function RandomSymbols(Count: integer; Ru_Big, Ru_Small, En_Big, En_Small, Numbers, Spec_symbols: bit): string;
Const Alphabet_RU_Big: Set of Char = ['А'..'Я'];
      Alphabet_RU_Small: Set of Char = ['а'..'я'];
      Alphabet_En_Big: Set of Char = ['A'..'Z'];
      Alphabet_En_Small: Set of Char = ['a'..'z'];
      Alphabet_Spec_symbols: Set of Char = [];
      Alphabet_Numbers: Set of Char = ['0'..'9'];
Var S: Set of Char;
    S_Array: array of char;
begin
if Ru_Big = 1 then S:= S + Alphabet_RU_Big;
if Ru_Small = 1 then S:= S + Alphabet_RU_Small;
if En_Big = 1 then S:= S + Alphabet_En_Big;
if En_Small = 1 then S:= S + Alphabet_En_Small;
if Spec_symbols = 1 then S:= S + Alphabet_Spec_symbols;
if Numbers = 1 then S:= S + Alphabet_Numbers;
for i := low(i) to high(i) do S_Array[i]:= i;
for i:= 1 to Count do Result:= Result + String(S[i]);
end;

end.

п.с. Spec_symbols позже добавлю