[SnowLeopard]

Добрый день!
Суть проблемы - необходимо сделать так, чтобы из БД типа .mdb из одного столбца бралось два рандомных не повторяющихся значения и чтобы они записывались в две переменные, которые будут нужны в дальнейшем.

[Black Raider]

В чем проблема то?

Код:

ClientDataSet.RecNo:=random(ClientDataSet1.RecordCount+1);
k:=ClientDataSet1.fieldbyname('ПОЛЕ').asInteger;
repeat
ClientDataSet.RecNo:=random(ClientDataSet1.RecordCount+1);
l:=ClientDataSet1.fieldbyname('ПОЛЕ').asInteger;
until k<>l;

[SnowLeopard]

Возможно ли сделать это не через ClientDataSet, а через ADO компоненты (у меня на форме ADOTable1, ADOConnection1 и DataSource1)?

[Black Raider]

Да
ADOTable потомок класса DataSet
Просто замени ClientDataSet на ADOTable

[SnowLeopard]

Ошибку выдает((( "аргументы имеют неверный тип, вылезают за рамки диапазона или конфликтуют друг с другом"
На этой строке
ADOTable1.RecNo:=random(ADOTable1.RecordCount+1);

[Black Raider]

попробуй без +1?