22.04.2009, 15:25
|
|
Новичок
Регистрация: 04.08.2008
Сообщений: 29
Провел на форуме:
167800
Репутация:
15
|
|
Код:
function RndString(Len:integer):string;
var
i:integer;
begin
randomize;
for i:=1 to Len do
Result:=Result+Chr($30+Random($4D)); //0 - }
end;
Как-то так.
Символы выбираются из диапазона 0x30 - 0x7d (0 - }) ASCII таблицы. |
|
|