24.04.2010, 02:19
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
С нами:
9152955
Репутация:
84
|
|
Сообщение от Serbies
к предыдущему моему сообщению: astonilya ссори не так прочел сообщение
EndLeSSDre@M
randomize; for i:=1 to 20 do mmo1.Text := mmo1.Text+' '+chr(Random(80)+48); - будет генерировать латинские буквы во всех регистрах + цифры
(ссори за неоформленность)
Что-то не знал про функцию chr...спасибо, интересная оказалась
Сейчас мне понадобилось генерить только буквы, и большие и маленькие, накидал функцию может кому пригодится. На вход функции подается количество нужных символов а возвращается строка:
PHP код:
function RandWord(count : integer): string;
var
I: Integer;
begin
result := '';
for I := 0 to count - 1 do
case random(2) of
0: result := result + chr(Random(26)+65);
1: result := result + chr(Random(26)+97);
end;
end;
Последний раз редактировалось GhostOnline; 24.04.2010 в 05:12..
|
|
|