Random для символов

[Манжосов Денис :)]

Во спасибо.

[Манжосов Денис :)]

Ды блин и так тоже не работает, только цифры выдаёт.

[Ozerich]

Как это не работает?
Вот функция с примером.
У меня работает

Function Func(len:integer;Const maska:string):string;
var ch:string;
a,x:byte;
begin
 randomize;
 x:=1;
 repeat
      a:=random(length(maska))+1;
      ch:=maska[a];
 result:=result+ch;
 inc(x);
until x>len;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Showmessage(Func(4,'abcdABCD'));
end;

[Манжосов Денис :)]

Опять то же самое, ладно попробую сам разобраться.

[Ozerich]

вот смотри пример.

[Gorychev]

Можно так:

function RandomChar(len: integer): string;
var s: string;  i: integer;
begin
   randomize;
   for i:=0 to len - 1 do
          s := s + chr( random(26) + ord('A') );
   result := s;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  caption:= RandomChar(20);
end;

[Манжосов Денис :)]

Сделал в отдельном пустом проекте - работает, вставил в свой - нет. Сейчас приведу исходный код.

[Ozerich]

Денис я так понял что у тебя тока 1 символ появляется.ОбЪясняю
Функция RandomChar возвращает набор символов длины которая указана в параметре.

Label_Password.Caption := RandomChar(1);

Ты в цикле к примеру 4 раза присваиваешь Label_Password.Caption набор символов из 1 символа.И так 4 раза.Если делать циклом то так

Label_Password.Caption := Label_Password.Caption+RandomChar(1);

а лучше так

Label_Password.Caption:=RandomChar(Strtoint(Edit_SizePass.Text));

Надеюсь понятно объяснил

[Манжосов Денис :)]

procedure TGenerateForm.bt_GenerateClick(Sender: TObject);
begin
Label_Password.Caption := '';
if Edit_SizePass.Text = '' then exit;
Label_Password.Caption := RandomChar(StrToInt(Edit_SizePass.Text));
try
 with GenerateFile do
 begin
  LoadFromFile('Generate.txt');
  Add(Label_Password.Caption);
  SaveToFile('Generate.txt');
 end;
except On EFOpenError do
GenerateFile.SaveToFile('Generate.txt');
end;

Получилась вот такая процедура, всё равно программа выдаёт только цифры, вместо символов..

[Ozerich]

Попробуй мою функцию.Я ее проверял все работает.

З.Ы МОЁ 100-ое СООБЩЕНИЕ!!!!!!!