Сохранение TForm и ее свойств в BLOB-поле

Советы » Записи, индексы, поля, закладки » Сохранение TForm и ее свойств в BLOB-поле

procedure

SaveToField(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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com