|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Подкорректируйте функцию, она работает, но что-то в ней не то
Подкорректируйте функцию, она работает, но что-то в ней не то
Код:
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; |
#2
|
||||
|
||||
Код:
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; Помогаю за Спасибо |
#3
|
|||
|
|||
Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!
Pass: String; ошибка Identifier redeclared
Последний раз редактировалось mobiliti, 18.03.2011 в 17:10. |
#4
|
||||
|
||||
Функция так же называется. Назови функцию, например, "GenPass", вместо "Pass".
Помогаю за Спасибо |
#5
|
|||
|
|||
Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!Сп асибо!Спасибо!Спасибо!Спасибо!Спаси
Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!Сп асибо!Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!Спас ибо!Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!Спасиб о!Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!Спасибо! Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!Сп асибо!Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!Спас ибо!Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!Спасиб о!Спасибо!Спасибо!Спасибо!Спасибо!Спасибо!
|