[Паскаль]

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

[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. Радуешься.