Delphi World - Копирование компонента через TFileStream
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Копирование компонента через TFileStream

Автор: Mike Scott

1) Существует способ присваивания всех свойств одного элемента управления (объекта) другому?

С определенными объектами, которые, обычно, являются обертками элементов управления Windows типа TFont и TBitmap, с помощью метода Assign, копирующего "внутренности" объекта. Вы можете сделать Font1.Assign( Font2 ). Тем не менее, такое возможно не со всеми объектами.

Возможно копирование объекта с помощью потока. Вам нужно записать это в поток, и затем прочесть это оттуда. Но это как раз плавно перетекает в ваш следующий вопрос...

2) Как мне сохранить объект a) в записи в файле данных Paradox и б) в файле на диске?

Для записи на диск используйте поток. Объект должен быть компонентом и его можно записать на диск следующим образом:


var 
  Stream: TFileStream ;
begin
  Stream := TFileStream.Create( 'AFile', fmCreate ) ;
  try
    Stream.WriteComponent( Button1 ) ;
    Stream.WriteComponent( Grid1 ) ; и т.д.
  finally
    Stream.Free ;
  end ;
end ;

Для чтения объекта необходимо следующее:


var 
  Stream : TFileStream ;
  Button2 : TButton ;
  Grid2 : TStringGrid ;
begin
  Stream := TFileStream.Create( 'AFile', fmOpenRead ) ;
  try
    Button2 := Stream.ReadComponent( nil ) as TButton ;
    Grid2 := Stream.ReadComponent( nil ) as TStringGrid ; и т.д.
  finally
    Stream.Free ;
  end ;
end ;

В каком-то месте вам необходимо зарегистрировать классы, которые вы хотите писать и читать. Например, вы могли бы создать следующий обработчик события формы OnCreate:


RegisterClass( TButton ) ;
RegisterClass( TStringGrid ) ;

Если классы не зарегистрированы, то при попытке чтения объекта вы получите ошибку 'Class not found' (класс не найден).

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования