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

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

Вот заинтересовал вопрос. Например надо создать строку из 15 СИМВОЛОВ. Вот код:

var 
Symbol : Pchar;
for I := 1 to 15 do
 begin
  Symbol := Random(255);
  label_Symbol.Caption := Symbol;
 end;

Почему то не работает. Помогите пож.

[puporev]

procedure TForm1.Button1Click(Sender: TObject);
var  Symbol : Char;
     i:integer;
begin
randomize;
for i:=1 to 15 do
  begin
    Symbol := Chr(Random(255));
    Label1.Caption :=Label1.Caption+Symbol;
  end;
end;

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

Будет работать? Заранее спасибо, просто я уже так пробовал, у меня не получилось, но там чуть другой алгоритм был, ладно я попробуй.

[BOBAH13]

Ну для ифнормации 0 - конец строки, и если выпадет 0 первым то все, строка пустая. И честно говоря это немного тупо брать диапазон от 0 до 255. Вы лучше гляньте на таблицу ASCII и выберите для праверки нужные символы ( диапозон байтов ).

[GN_]

Денис, в 255 входят не только буквы, но и спецсимволы (табуляция, энтер), поэтому надо определённый диапазон генерить.

---
BOBAH13, опередил

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

Нет не работает, почему - то выдаёт только цифры. А если например:
const
AB = 'ABCDEF...';
Как сделать чтобы на угад взялся символ из этой строки.
Заранее спасибо.

[Ozerich]

Function Func(length:integer):string;
var ch:string;      
a,x:byte;      
begin      
 randomize;      
 x:=1;        
 repeat       
      a:=random(1)+1;      
      if a=1 then ch:=chr(65+random(26));         
      if a=2 then ch:=chr(97+random(26));      
   end;      
 result:=result+ch;      
 inc(x);      
until x>length;     
end;

Вот код который по заданной длине генерует строку из разных символов

[Ozerich]

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

Вот функция которая генерует строку длины Length и выбирает только символы которые есть в Mask.

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

Я не вижу в этих кодах того что будет выводиться символ.
Тем более я просто попросил как можно взять символ на Random из Const Alphabet = 'ABCDEF...XYZ'?

[Ozerich]

Я не вижу в этих кодах того что будет выводиться символ.

я написал функцию.ну а дальше ты сам.
например edit1.text:=Func(4);//для первого примера
edit1.text:=Func(4,'abcf');//для второго примера

Тем более я просто попросил как можно взять символ на Random из Const Alphabet = 'ABCDEF...XYZ'?

[/QUOTE]
var ch:char;
begin
randomize;
Ch:=alphabet[random(length(alphabet))];
end;