дублирование записей

← →
Doctor Deejay © (2004-05-04 18:31) [0]

Вопрос в следующем. Есть БД. Заполняю одно из ее полей по рандому с пом. функции:

function TForm1.GenerateImgID : string; const Chars = "0123456789abcdefghijklmnopqrstuvwxyz"; Len = 16; Path = "c:\cool"; begin Memo1.Clear; Memo1.Lines.LoadFromFile(Path); Randomize; result:=""; repeat Application.ProcessMessages; while length(Result)<Len do begin Application.ProcessMessages; Result:=Result + Chars[Random(36) + 1]; end; until pos(result,Memo1.Text)=0; Memo1.Lines.Add(Result); Memo1.Lines.SaveToFile(Path); end;

После вызова этой функции в цикле заполнения происходит дублирование одного и того же значения на несколько записей. Не знает ли кто-то причину. Может алгоритм не тот самой ф.?
Использую стандартные TClientDataSet TDataSource TDBGrid

← →
Doctor Deejay © (2004-05-05 10:49) [1]

НЕУЖЕЛИ НИКТО НЕ ПОДСКАЖЕТ?

← →
Johnmen © (2004-05-05 10:55) [2]

1. Randomize вынеси в место, однократно выполняемое при начале работы прогр. В секцию инициализации, напр.
2. Application.ProcessMessages абсолитно лишнее
3. Лучше уж использовать виндовый гуид. См. TGUID и кака с ним работать...

← →
Doctor Deejay © (2004-05-05 17:50) [3]

Дело в том, что если поставить паузу, то проблема исчезает....

Дело в том, что Randomize инициализируется с системного таймера, и стартовое значение может быть одинаковым в пределах малого промежутка времени.
Так что Johnmen (1) - обязательно.

дублирование записей Найти похожие ветки