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

Вниз

Уникальный код   Найти похожие ветки 

 
Sergio4   (2004-07-23 00:46) [0]

Здравствуйте Товарищи.
У меня такая проблема: Надо такая функция(или процедура) в результате которой получалась бы строка определённой длинны(напр. 8 символов) типа String состоящая из цифр и букв в произвольном порядке - при этом надо чтобы строка всегда была разной(уникальной), при каждом выполнении функции(процедуры). Я чегото думал и никак не придумал. Цифры - понятно, буквы латинские нижнего регистра(вообще подойдёт лубого регистра) от "а" до "z".


 
DVM ©   (2004-07-23 00:49) [1]

А сгенерировать подряд несколько случайных чисел и от 0 до 255 и взять символы с этими кодами не судьба? Диапазон можно (и нужно) и другой естественно.


 
riddare   (2004-07-23 00:59) [2]

используй текущее время с секундами и дату как уникальный элемент строки


 
Sergey Kaminski ©   (2004-07-23 01:12) [3]

CreateGUID
GUIDToString
:)


 
Gero ©   (2004-07-23 01:42) [4]


> Я чегото думал и никак не придумал

Плохо думал.
Если подумаешь лучше, то Random, for, Chr тебе помогут.


 
Керик   (2004-07-23 09:32) [5]

Перед тем как юзать Random, надо ставить Randomize при запуске проги один раз!


 
Гаврила ©   (2004-07-23 09:40) [6]

Смотри ответ [3] и не изобретай велосипед


 
Sandman25 ©   (2004-07-23 09:41) [7]

function RandomString(const Len: Integer): String;
const
 Value: Int64 = 0;
begin
 Result := IntToHex(Value, Len);
 Inc(Value);
end;

:)



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

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

Наверх




Память: 0.45 MB
Время: 0.033 c
6-1086280860
Pavel
2004-06-03 20:41
2004.08.08
WSASocket


14-1090583927
Sun bittern
2004-07-23 15:58
2004.08.08
Ошибка соеденения HTTP 403


14-1090518026
Саша
2004-07-22 21:40
2004.08.08
Me на XP


14-1090626329
anonim
2004-07-24 03:45
2004.08.08
Комерческий журнал хочет включить мою программу на CD


9-1082632043
CraKer
2004-04-22 15:07
2004.08.08
GLscene colisions





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский