Можно ли создать уникальный индекс?

[Nick245]

Можно ли создать уникальный индекс? Если да, то как?

Имеется в виду

Код: Выделить всё

for i:=1 to 5 do 
  read(name[i]);

уникальность (i) , а не name!!

[zub]

Код: Выделить всё

function GetUniqueIndex(var seed:TIndexType):TIndexType;
begin
  inc(seed);
  result:=seed;
end;
...
seed:=0;
UniqueIndex1:=GetUniqueIndex(seed);
UniqueIndex2:=GetUniqueIndex(seed);
UniqueIndex3:=GetUniqueIndex(seed);
...

Добавлено спустя 1 час 1 минуту 38 секунд:
>>уникальность (i) , а не name!!
У тебя талант объяснять)) давай еще раз))

[olegy123]

Можно ли создать уникальный индекс?

Уникальность в пределах чего?
Если в рамках сессии, то хватит простого счетчика Inc(Count,1)
Если нужно в рамках программы - то Count должна быть глобальной и атомарной(защищенной для мультизадачной)
Если нужно в рамках земного шара, то придумали UUID, в паскале есть данный тип TGuid