Скачать: CL | DM;

*.dfm   Найти похожие ветки 

← →
Алексей П   (2003-01-04 10:31) [0]

А можно взять и сохранить форму с всеми свойствами, компонентами в файл или БД (Memo), а потом взять, загрузить и создать?
И главное - как?

---

← →
Andrey Shakula   (2003-01-04 13:24) [1]

Можно

Сохранение в поток cконвертацией в текст;
Что - то вроде (не тестировал)

procedure SeveComponentToStream(Component: TComponent; Stream: TStream);
var
BinStream: TMemoryStream;
egin
BinStream := TMemoryStream.Create;
try
BinStream.WriteComponent(Component);
BinStream.Seek(0, soFromBeginning);
ObjectBinaryToText(BinStream, Stream);
finally
BinStream.Free;
end;
end;

Загрузка из потока (текстового)

Класс должен бать зарегестрирован перед загрузкой.

RegisterClass(TКласствоейФормы);

Возможно не работает но суть должна бать понятна.

function LoadComponentFromStream(Component: TComponent;
Stream: TStream): TComponent;
var
BinStream: TMemoryStream;
begin
BinStream := TMemoryStream.Create;
try
ObjectTextToBinary(Stream, BinStream);
BinStream.Seek(0, soFromBeginning);
Result := BinStream.ReadComponent(Component);
finally
BinStream.Free;
end;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c