Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.13;
Скачать: 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 вся ветка

Текущий архив: 2003.01.13;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.007 c
1-37003
vlad
2002-12-31 17:16
2003.01.13
MDI & CHILD


1-37181
race1
2002-12-30 12:00
2003.01.13
опять :)


14-37384
Шишкин Егор
2002-12-24 17:45
2003.01.13
Последный герой 2


14-37340
cyborg
2002-12-22 19:42
2003.01.13
Начало, но уже другое :)


14-37299
Ежик
2002-12-23 11:07
2003.01.13
Посоветуйте куда сходить в Москве?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский