[Паскаль]

Люди помогите написать простейший генератор паролей.!хочу чтобы программа состояла из едит буттон т.е.нажимаешь на буттон в графе эдит появляется пароль.

[m1sclick]

Объявляешь переменные:
i, num : integer;
Затем пишешь такой код:

Код:

randomize;
for i:=0 to 9 do
begin
num:= random(9);
Edit1.Text:= Edit1.Text + inttostr(num);
end;

Будет тебе простейший числовой пароль.

[Snake22]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c,tmp:Char;
  dlina, i,X:integer;
begin
Edit1.Clear;
Randomize;//подключаем рандом
dlina:=10; //кол-во символов в пароле
for i:=0 to dlina-1 do begin
a:=Inttostr(random(9))[1] //генерируем цифру
b:=Char(65+Random(25));//заглавную юукву
c:=Char(97+Random(25));//строчную
X:=Random(3);
case x of //выбираем рандомно либо цифру либо заглавную/строчную
  0: tmp:=a;
  1: tmp:=b;
  2: tmp:=c;
  end;
 Edit1.text:=Edit1.Text+tmp;  //добавляем к паролю
 end;
end;

если нужны русские буквы то они в диапазоне 195-255

[Паскаль]

В форрм1 ни чего не надо?а то написал компилирую какое-то окно выскакивает.
var
i, num : integer;
randomize;
for i:=0 to 9 do
begin
num:= random(9);
Edit1.Text:= Edit1.Text + inttostr(num);
end;
Или не правильно?

[Snake22]

какое окно?
покажи весь код.
перед randomze; у тебя begin пропущен
на форме едит1 должен быть

[Паскаль]

Кажись у меня программа касячная .Подскажите где норм.скинуть чтоб бес касяков.

[m1sclick]

Сомневаюсь я что это программа косячная.
Пошаговая инструкция так сказать:
1. Запускаешь Delphi.
2. File - New - VCL Forms Application
3. На форму перетаскиваешь 1хTButton, 1xTEdit
4. В Edit1 очищаешь свойство Text
5. Делаешь двойной клик на Button1
5. В процедуре перед begin но после procedure TForm1.Button1Click.....
объявляешь переменные.
6. После слова begin вставляешь сам код.
7. Нажимаешь F9.
8. Радуешься.

[Паскаль]

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

Сомневаюсь я что это программа косячная.
Пошаговая инструкция так сказать:
1. Запускаешь Delphi.
2. File - New - VCL Forms Application
3. На форму перетаскиваешь 1хTButton, 1xTEdit
4. В Edit1 очищаешь свойство Text
5. Делаешь двойной клик на Button1
5. В процедуре перед begin но после procedure TForm1.Button1Click.....
объявляешь переменные.
6. После слова begin вставляешь сам код.
7. Нажимаешь F9.
8. Радуешься.

Хорошо если радуешься.

[Паскаль]

окно выскакивает. я HELP нажимаю-пишет:"не удается найти файл справки проверьте наличие файла на диске и при необходимости переустановите."

[Паскаль]

И все же подскажите где можно скачать делфи без всяких проблем.

[nixel]

http://www.delphilab.ru/content/blogcategory/53/96/
Вторая ссылка в гугле. Акурат после данного форума.

Какое окно выскакивает?

[m1sclick]

Как-же это все таки печально....
Вот, держи: http://rghost.ru/37064533

[Паскаль]

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

Как-же это все таки печально....
Вот, держи: http://rghost.ru/37064533

Готовенькое хорошо,но хочется самому что-то сделать.

[Паскаль]

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

http://www.delphilab.ru/content/blogcategory/53/96/
Вторая ссылка в гугле. Акурат после данного форума.

Какое окно выскакивает?

попытался скачать файл вот что получилось:"ВНИМАНИЕ! Для Вашего IP адреса исчерпан лимит подключений! Попробуйте повторить через 15 минут(ы)."

[Паскаль]

Все таки скачал спасибо.Быстро.Вирусов нет.
А как установить.Почему то не устанавливается.