База вопросов Опции

[sheka]

Мне нужно сделать тест. Базу вопросов хочу хранить как file of record. Проблема заключается в том, что в тесте должны быть картинки. Хотел сделать как поле записи. Но вот проблема: в файл не записывается ни поле :TImage ни :TPicture ни даже :TBitmap.
Как это можно осуществить?

Сообщение отредактировано: sheka - 6.02.2010 20:06

[volvo]

Кстати, она на Виндовс 7 нормально работает, еще не проверяли?

Прекрасно работает и на Win7 тоже.

Вот, например, с массивом я бы это делал так m[random(RecordCount)] итд. А как с базой быть?

procedure TForm1.btnRandomRecClick(Sender: TObject);
var Curr: integer;
begin
  with DBGrid1.DataSource.DataSet do
  begin
    Curr := Random(RecordCount);
    First;
    MoveBy(Curr);
  end;
end;

, только не забудь вызвать при инициализации формы Randomize, иначе будешь получать все время одну и ту же запись. Чтобы видеть выбранную строку, желательно в опциях ДБГрида установить gdRowSelect и dgAlwaysShowSelection...