![]() |
|
#8
|
||||
|
||||
![]() Так. Стоп. Процедура должна искать случайное значени (от 1 до 5) в базе, и если его нет, то добавлять. МосК зашевелился
![]() Код:
var CheckSet: Set of Byte; Uni: Boolean; ... begin ... randomize; CheckSet := [1..5]; Uni := true; repeat c1:=RandomRange(0,6); Uni :=(c1 in CheckSet) and (not AdoTable1.Locate('c1',c1,[loCaseInsensitive]); Exclude(CheckSet, c1); until (not Uni) or (CheckSet = []); if Uni then // в с1 уникальное значение ... end; Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. Последний раз редактировалось dr. F.I.N., 17.02.2011 в 14:00. |