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

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

Уникальная строка

DMX ©   (2008-09-11 15:29:00) 

Как можно сгенерировать уникальную строку.

---

Jeer   (2008-09-11 17:15:00) [1]

> Закат солнца вручную ?


С небольшим участием пинка от балшой ноги.

---

MsGuns   (2008-09-11 16:18:00) [2]

>DMX   (11.09.08 15:42) [7]
>Строка будет идентифицировать определенные записи в таблице

Закат солнца вручную ?

---

Ega23   (2008-09-11 15:47:00) [3]

> Строка будет идентифицировать определенные записи в таблице


СУБД?

---

Правильный$Вася   (2008-09-11 15:46:00) [4]

> Строк абудет идентифицировать определенные запис ив таблице

одна на несколько записей?

---

Правильный$Вася   (2008-09-11 15:45:00) [5]

> Строка будет идентифицировать определенные записи в таблице

так хочется иметь именно строки?

> Угу, типа у слова "уникальная" так много значений

контекстов много

---

Palladin   (2008-09-11 15:43:00) [6]

Угу, типа у слова "уникальная" так много значений :)

---

DMX   (2008-09-11 15:42:00) [7]

Строка будет идентифицировать определенные записи в таблице

---

Правильный$Вася   (2008-09-11 15:41:00) [8]

"войну и мир" тоже можно считать уникальной строкой
и даже при желании сгенерировать

---

Поросенок Винни-Пух   (2008-09-11 15:38:00) [9]

function KozirnayaAlmostUnique(Ncount : integer):String;
var i : integer;
begin
for i := 0 to NCount do Result := Result + vtAlmostUnique;
end;

---

Правильный$Вася   (2008-09-11 15:36:00) [10]

уникальную в каком контексте?

---

Ega23   (2008-09-11 15:35:00) [11]

> Palladin ©   (11.09.08 15:32) [2]


У меня форматирование кода лучше. И ComObj...  :о)

---

Ega23   (2008-09-11 15:32:00) [12]

uses ComObj;

function UniqueString : string;
var
 id : TGUID;
begin
 CreateGUID(id);
 Result := GUIDToString(id);
end;

---

Palladin   (2008-09-11 15:32:00) [13]

Function vtAlmostUnique:String;
Var
h:TGUID;
Begin
CreateGUID(h);
Result:=GUIDToString(h);
End;


---

Наверх