Мне нужно записать серию чисел в файл Paradox в blob-поле. Числа получаются из значений компонент, размещенных на форме. Затем мне нужно будет считывать числа из blob-поля и устанавливать согласно им значения компонент. Как мне сделать это? Вы можете начать свое исследование со следующего модуля:
type ADouble = array[1..12] of double; PADouble = ^ADouble;
procedure TFrmBlobFld.BtnWriteClick(Sender: TObject); var i: integer; myBlob: TBlobStream; v: longint; begin Table1.Edit;
myBlob := TBlobStream.Create(Table1Blobs, bmReadWrite); try v := ComponentCount; myBlob.Write(v, sizeof(longint));
for i := 0 to ComponentCount - 1 do begin v := Components[i].ComponentIndex; myBlob.Write(v, sizeof(longint)); end; finally Table1.Post; myBlob.Free; end; end;
procedure TFrmBlobFld.DataSource1DataChange(Sender: TObject; Field: TField); var i: integer; myBlob: TBlobStream; t: longint; v: longint; begin if CbxRead.Checked then begin LbxDisplayBlob.Clear;
