Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Уникальный код [D5, Win95/98]


Sergio4 ©   (2004-07-23 00:46:00) 

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


Sandman25   (2004-07-23 09:41:00) [1]

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

:)


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

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


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

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


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


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

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


Sergey Kaminski   (2004-07-23 01:12:00) [5]

CreateGUID
GUIDToString
:)


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

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


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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо