так.... уберите детей от монитора
запускаем прогу 5 раз, результат:
1)03862027673116374284778452991367732
2)03862027673116374284778452991367732
3)03862027673116374284778452991367732
4)03862027673116374284778452991367732
5)03862027673116374284778452991367732

ВЫЕ**ТЬ РАЗРАБОВ ДЕЛЬФИ!!!!! ЗАЧЕМ НАЗЫВАТЬ ФУНКЦИЮ "Random" ЕСТЬ ЭТО НЕ Random
Называйте бл**ь NotRandom и никаких проблем, а так пол часа еба**и и выяснения почему прога не работает, ведь нельзя догадаться что функция "Random" на самом деле выводит заранее приготовленые числа
============
Мне сказале чо перед Random надо писать Randomize
Где логика?! Нельзя это было в Random прописать?!
А перед showMessage(); ненадо там случайно showMessagez; писать? А? Или перед 1+1 ненадо 1+1z писать? а?
Пи***сы разрабы

вот

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
BitBtn1: TBitBtn;
Image1: TImage;
Image2: TImage;
procedure FormCreate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;
function RandomPwd(PWLen: integer): string;
// таблица символов, используемых в пароле
const StrTable: string =
'ABCDEFGHIJKLMabcdefghijklm' +
'0123456789' +
'NOPQRSTUVWXYZnopqrstuvwxyz';
var
N, K, X, Y: integer;// проверяем максимальную длину пароля
begin
if (PWlen > Length(StrTable)) then K := Length(StrTable)-1
else K := PWLen;
SetLength(result, K); // устанавливаем длину конечной строки
Y := Length(StrTable); // Длина Таблицы для внутреннего цикла
N := 0; // начальное значение цикла
while N < K do begin // цикл для создания K символов
X := Random(Y) + 1; // берём следующий случайный символ
// проверяем присутствие этого символа в конечной строке
if (pos(StrTable[X], result) = 0) then begin
inc(N); // символ не найден
Result[N] :=
StrTable[X]; // теперь его сохраняем
end;
end;

end;





procedure TForm1.BitBtn1Click(Sender: TObject);
var
cPwd: string;
begin
cPwd := RandomPwd(9);

edit1.Text:=cPwd;

end;

end.

угу, полная хня)))

будет генерить как я и сказал)

2astonilya че за хню ты написал???О_О

дай плиз линки что почитать про него...

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

у slesh`а отличные статейки.. где-то на форуме есть

2 EndLeSSDre@M
гм... уже подзабывать стал паскаль, но тут только генератор случайных цифр с переводом их в текстовое значение, притом вывод будет произведен нечитабельный как для программы так и для пользователя.
вот так будет правельней.

2 stepashka_ - хорошая прога(на сайте тоже поиск есть) delphiworld.narod.ru -там небольшие примеры и статьи сортированные по тематикам - и главное нормальные примеры

буквы говоришь, тогда куда проще будет просто создать массив с буквами и символами, и потом уже рандомно выбирать по ключам буквы... куда проще будет! и меньше кода

к предыдущему моему сообщению: astonilya ссори не так прочел сообщение
EndLeSSDre@M
randomize; for i:=1 to 20 do mmo1.Text := mmo1.Text+' '+chr(Random(80)+48); - будет генерировать латинские буквы во всех регистрах + цифры
(ссори за неоформленность)