Проблема с random

← →
badaxe © (2003-01-15 15:37) [0]

Приветствую.
Возникла такая проблема:
при помощи ф-ции random заполняю массив номерами записей в рекордсете.
randomize; for j:= 1 to 5 do begin a[j]:=random(query.RecordCount); end;
Данный кусок выполняется без проблем, при закрытии приложения возникает ошибка "Access violation at address 00401D41 in module qqqq.exe"
А если закомментировать строчку с random, то все закрывается нормально.
Где тяпка?

← →
badaxe © (2003-01-15 15:52) [1]

ну хоть намекните... :(

← →
Digitman © (2003-01-15 15:53) [2]

однозначно, что "тяпка" - не в Random()

- либо объект Query не существует
- либо массив a[] не существует
- либо выход за пределы памяти, распределенные тобой под массив a[]

p.s. наивно полагать, что св-во query.RecordCount будет меняться в ходе выполнения такого цикла, если ты этого ожидаешь

← →
badaxe © (2003-01-15 15:58) [3]

> p.s. наивно полагать, что св-во query.RecordCount будет
> меняться в ходе выполнения такого цикла, если ты этого ожидаешь

Вовсе нет... все что мне нужно - это случайным образом выбрать несколько записей из рекордсета...

> - либо выход за пределы памяти, распределенные тобой под
> массив a[]

а как выяснить так ли это ?

>> Данный кусок выполняется без проблем
странно, а все range cheking стоят ?
и проверь, как создаешь все объекты (массив)

> все что мне нужно - это случайным образом выбрать несколько
> записей из рекордсета

глупей не придумаешь - всякий раз для формирования параметра ф-ции Random() обращаться к объекту Query лишь затем, чтобы в рез-те получить одно и то же зн-е св-ва RecordCount )

var rc: Integer; ... rc := query.RecordCount for j:= 1 to 5 do begin a[j]:=random(rc); end;

Проблема с random Найти похожие ветки