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

[sheka]

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

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

[volvo]

А для этого ни разу не надо знать номер строки... Любая операция в Гриде производится с текущей строкой. Для ее удаления можно применить:

  DBGrid1.DataSource.DataSet.Delete;

Поэтому думал сделать так: если выделена запись, то вывести ее значение поля OLE в Image, который где-то бы на форме находился.

Правильно думал... Я приводил код отображения картинки из БД в TImage... Если его повесить на событие DBGrid->DataSource->OnDataChange, это будет выполнять поставленную задачу:

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
  bStream: TADOBlobStream;
  bm: TBitmap;
begin
  if not DBGrid1.DataSource.DataSet.FieldByName('image').IsNull then
  begin
    bStream := TADOBlobStream.Create(TBlobField(DBGrid1.DataSource.DataSet.FieldByName('image')), bmRead);
    try
      bm := TBitmap.Create;
      bm.LoadFromStream(bStream);
      Image2.Picture.Bitmap.Assign(bm);
      bm.Free;
    finally
      bStream.Free;
    end;
  end
  else Image2.Picture := nil; // поле image пустое... Очищаем
end;

Это тебе не самописная база, где все пришлось бы делать вручную, и отслеживать текущую запись, и ловить момент перехода по списку записей... В ADO уже все есть...

[sheka]

Опять столкнулся с проблемой. Точнее с -ами)))

У меня должен в базе храниться достаточно длинный текст (где-то 1-3 предложения), а он целиком не помещается в одну строку(MSAccess на длину ругается, но это ничего страшного, можна обойтись и этой длиной. проблема в неудобности обозрения информации) . Вычитал, что стандартно многострочным поле ДБГрида быть не может. Мои варианты решений проблемы:
1) т.к. времени очень мало - забить на создание редактора базы и пользоваться MSAccess в этих целях. Но как тогда загрузить картинку через него? Если ее загружаешь( или просто из папки перетаскиваешь в поле ОЛЕ, или рисуешь встроеным редактором), то делфи выдает ошибку при считывании этого поля.
2) использовать поле МЕМО, вывод которого ДБГрид тоже не поддерживает. Т.е. его надо привязать к объекту мемо(тому который на форму кинуть можно).

из 2) появляется еще один вопрос: как считывать информацию из полей ДБГрида? (тоже как-то через поток?):
а) просто текстового поля
б) поля МЕМО - для реализации 2-го пункта.