Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Видеокурс программиста и крэкера 5D 2O17
(актуальность: ноябрь 2O17)
Свежие инструменты, новые видеоуроки!

  • 400+ видеоуроков
  • 800 инструментов
  • 100+ свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Сохранение 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS