Тема: Срочно! Хитрый запрос))
Показать сообщение отдельно
  #2  
Старый 08.06.2010, 13:26
Black Raider Black Raider вне форума
Местный
  
Регистрация: 31.05.2010
Адрес: Москва
Сообщения: 466
Версия Delphi: 7
Репутация: 40
По умолчанию
В чем проблема то?
Код:
ClientDataSet.RecNo:=random(ClientDataSet1.RecordCount+1);
k:=ClientDataSet1.fieldbyname('ПОЛЕ').asInteger;
repeat
ClientDataSet.RecNo:=random(ClientDataSet1.RecordCount+1);
l:=ClientDataSet1.fieldbyname('ПОЛЕ').asInteger;
until k<>l;
Ответить с цитированием