Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.11.11;
Скачать: [xml.tar.bz2];

Вниз

генерация   Найти похожие ветки 

 
greengeneral   (2007-10-19 18:26) [0]

Я хочу узнать есть ли функция генерации случайных букв, символов.


 
Reindeer Moss Eater ©   (2007-10-19 18:27) [1]

и что мешает твоему хотению?


 
korneley ©   (2007-10-19 18:37) [2]

Орешник, пример номер два. "Рандомизатор"


 
Джо ©   (2007-10-19 18:45) [3]

> [0] greengeneral   (19.10.07 18:26)
> Я хочу узнать есть ли функция генерации случайных букв,
> символов.

Random. Будет генерировать, что угодно. Хоть буквы, хоть символы.


 
Правильный_Вася   (2007-10-19 19:08) [4]

Удалено модератором
Примечание: флуд


 
Palladin ©   (2007-10-19 19:09) [5]

есть конечно ее только написать надо

Function RandomChar:Char;
Begin
Result:=Chr(Random(256));
End;


 
Anatoly Podgoretsky ©   (2007-10-19 19:41) [6]

Удалено модератором
Примечание: флуд


 
Джо ©   (2007-10-19 19:43) [7]

Удалено модератором
Примечание: самоцензура


 
TUser ©   (2007-10-19 21:27) [8]


> Function RandomChar:Char;
> Begin
> Result:=Chr(Random(255));
> End;


 
Palladin ©   (2007-10-19 21:30) [9]


> TUser ©   (19.10.07 21:27) [8]

есть конечно ее только написать надо

Function RandomChar:Char;
Begin
Result:=Chr(Random(256));
End;

Random + F1


 
Jump   (2007-10-19 21:34) [10]

И я свои 5 копеек вставлю:

function RandomChar: char;
begin
 Result := 32 + Chr(Random(224));
end;


 
Jump   (2007-10-19 21:35) [11]

Ой:

Result := Chr(32 + Random(224));


 
Pump   (2007-10-19 21:52) [12]


> Ой:

не считается


 
korneley ©   (2007-10-19 22:01) [13]


> Я хочу узнать есть ли функция генерации случайных букв,
> символов.
Ответ: Есть! И букв,  и символов, и символических букв, и буквенных символов, и всего, что не пожелается...



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.11.11;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.225 c
15-1191606767
mp5k
2007-10-05 21:52
2007.11.11
Открытие *.rar файлов в проводнике?


15-1191797155
Альберт Мобайл
2007-10-08 02:45
2007.11.11
посоветуйте


5-1163074690
karton
2006-11-09 15:18
2007.11.11
TabControl внутри компонента


11-1175594757
ElectriC
2007-04-03 14:05
2007.11.11
CLipBoard


6-1165172528
Yegorchic
2006-12-03 22:02
2007.11.11
Перехват запуска соединение по dial-up





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский