Имеется в виду
- Код: Выделить всё
for i:=1 to 5 do
read(name[i]);
уникальность (i) , а не name!!
Модератор: Модераторы
for i:=1 to 5 do
read(name[i]);
function GetUniqueIndex(var seed:TIndexType):TIndexType;
begin
inc(seed);
result:=seed;
end;
...
seed:=0;
UniqueIndex1:=GetUniqueIndex(seed);
UniqueIndex2:=GetUniqueIndex(seed);
UniqueIndex3:=GetUniqueIndex(seed);
...
Nick245 писал(а):Можно ли создать уникальный индекс?
Вернуться в Free Pascal Compiler
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 27