Генератор символов

[scroyler]

Всем привет.
Подскажите плз. как сделать генератор случайных символов.
мне надо так что бы в едит генерировались символы от A до Z
и что бы генерировалось количество символов.

[Hacker19_90]

Edit1.Text := '';
randomize;
for i := 1 to Count do
    Edit1.Text := Edit1.Text + chr(random(26)+65);

[Serge_Bliznykov]

элементарно, Ватсон!

пусть, Вам нужно сгенерировать N символов.
тогда так

procedure TForm1.Button1Click(Sender: TObject);
const N = 5;
var i : integer;
 s : string;
begin
  Randomize;
  s := '';
  for i:=1 to N do
    s := s + chr ( random( ord('Z') - ord('A') + 1) + ord('A'));
  Edit1.Text := s;
end;

p.s. randomize лучше вызывать ОДИН раз при запуске программы, например, на событии создания формы onCreate:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

Hacker19_90, а Вы меня опередили! Браво!

[Hacker19_90]

Hacker19_90, Вы, хоть и опередили меня чуток, но зато допустили неточность! У Вас буква Z никогда не выпадет!

Это почему? ))

[Serge_Bliznykov]

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

Это почему? ))

я ошибся. слишком быстро "прогнал" код в уме и ошибся...
исправил свой пост в ту же минут.
но вы слишком быстры: Вы успели увидеть моё неверное замечание..

[scroyler]

спасибо. а как с генерировать в виде slovo1234 , а то есть и цифры и буквы?

[Hacker19_90]

спасибо. а как с генерировать в виде slovo1234 , а то есть и цифры и буквы?

ну попробуйте так

Edit1.Text := '';
randomize;
for i := 1 to Count do
begin
      ch := chr(random(43)+48);
      if ch in ['0'..'9', 'A'..'Z'] then Edit1.Text := Edit1.Text + ch;
end;

[scroyler]

а в var что писать?

[Serge_Bliznykov]

Hacker19_90, потенциально такой код может вернуть строку МЕНЬШЕЙ длины, чем Count (ну, если случайный генератор вернёт не букву и не цифру..)

я бы предложил такой универсальный способ (он легко расширяется на любые символы или, наоборот, можно исключить нежелательные!):

Const
   sLo = 'abcdefghijklmnopqrstuvwxyz';
   sUpper = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
   sDigit := '0123456789';
var
   sAll : string;
   s : string; {строка, в которую будем собирать результат}
begin
   ....
   sAll := sUpper + sDigit; {генерировать строку только из больших латинских букв и цифр}
   s := '';
   for i:=1 to Count  do
      s := s + sAll [Random( length(sAll))+1  ];
   Edit1.Text := s;
....

[scroyler]

не пашет( нажимаю ничего не происходит + прога виснит