[mobiliti]

Подкорректируйте функцию, она работает, но что-то в ней не то

Код:

function pass():string;
Var
  Pass: String;
  PassLen,i: Integer;
begin
 Pass := ''; PassLen := 10;
 for i := 1 to PassLen
 do case Random(3)
    of 0: Pass := Pass + Chr(65+Random(26)); //Верхний регистр
       1: Pass := Pass + Chr(97+Random(26)); //Нижний регистр
       2: Pass := Pass + Chr(48+Random(10)); //Цифры
    end;
    Result :=pass;
    end;

[v1s2222]

Код:

function pass: String;
const
PassLen=10;
Var
  Pass: String;
  i: Integer;
begin
  Randomize;
 Pass := '';
 for i := 1 to PassLen do
  case Random(3) of
    0: Pass := Pass + Chr(65+Random(26));
    1: Pass := Pass + Chr(97+Random(26));
    2: Pass := Pass + Chr(48+Random(10));
  end;
  Result :=pass;
end;

[mobiliti]

Pass: String; ошибка Identifier redeclared

[v1s2222]

Функция так же называется. Назови функцию, например, "GenPass", вместо "Pass".

[mobiliti]

Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!Сп асибо!Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!Спас ибо!Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!Спасиб о!Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!Спасибо! Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!Сп асибо!Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!Спас ибо!Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!Спасиб о!Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!