procedureSaveToField(FField: TBlobField; Form: TComponent); var
Stream: TBlobStream; FormName: string
; begin
FormName := Copy(Form.ClassName, 2, 99); Stream := TBlobStream.Create(FField, bmWrite); try
Stream.WriteComponentRes(FormName, Form); finally
Stream.Free; end
; end
; procedure
LoadFromField(FField: TBlobField; Form: TComponent); var
Stream: TBlobStream; I: integer; begin
try
Stream := TBlobStream.Create(FField, bmRead); try
{удаляем все компоненты} for
I := Form.ComponentCount - 1 downto
0 do
Form.Components[I].Free; Stream.ReadComponentRes(Form); finally
Stream.Free; end
; except
on
EFOpenError do
{ничего}; end
; end
;