Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.08;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.044 c
3-1089874541
Орехов Д.В.
2004-07-15 10:55
2004.08.08
Глюк с параметром запроса в Interbase


3-1089197201
BPK
2004-07-07 14:46
2004.08.08
FastReport отрезает текст справа


1-1090838969
Фагот
2004-07-26 14:49
2004.08.08
Планировщик


3-1089804219
Shama_n
2004-07-14 15:23
2004.08.08
Как на SQL записать код символа вместо его явного указания?


14-1090648539
STALKER
2004-07-24 09:55
2004.08.08
Всем привет!Как в XP запустить ScanDisk?