занести уникальное ID БД сделал через goto, но виснет (

[Black_Wolf]

Небходимо занести уникальное ID БД сделал через goto, но чево-то зависает
есть ли другие варианты или как-то етот улучшить ?

: begin
i:=inttostr(qr);
opts:=[loCaseInsensitive];
goback:
qr:=RandomRange(100000, 10000000);
  if Data_test_HR.qry1.Locate('ID',i, opts) then //проверка на уникальность
   goto goback else ;
   Edit1.Text:=inttostr(qr) ;
end;

[Stilet]

как-то етот улучшить ?

Использовать тип поля Счетчик или генераторы в БД. Или же просто триггерами в том же БД. В программе, подключаемой к БД такие вещи делать строго нерекомендуется.

[Black_Wolf]

мне надо сгенирировать уникальный ключ, через гото он зависает в том и проблема есть ли альтернатива ? или как сделать чтоб не зависал

[Stilet]

есть ли альтернатива ?

Еще раз внимательно читаем мой пост. Обращаем внимание на слова Счетчик и генераторы в БД

[BARNEY]

Используй UUID