Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.11;
Скачать: CL | DM;

Вниз

Сохранение TControl   Найти похожие ветки 

 
vvolkov   (2002-10-31 13:51) [0]

Кто знает как сохранить у своего TComponent не published свойство в таком формате как в dfm. Пробовал как в примере Delhpi не работает... помогите кто может!


 
Skier   (2002-10-31 13:53) [1]

>vvolkov
Как пробовал ?


 
vvolkov   (2002-10-31 14:12) [2]

переопределял DefineProperty и типа

procedure TPlacementItem.DefineProperties(Filer: TFiler);
begin
Filer.DefineProperty"Control", ReadControl,WriteControl,true);
end;

и заводил функции

procedure TPlacementItem.ReadControl(Reader: TReader);
begin
Control:=TControl(Reader.ReadComponent(nil));
end;

procedure TPlacementItem.WriteControl(Writer: TWriter);
begin
Writer.WriteComponent(Control);
end

Сохранение выполял руками типа

function TPlacementItem.Save: string;
begin
var
BinStream :TMemoryStream;
StrStream : TStringStream;
begin
BinStream:=TMemoryStream.Create;
try
StrStream:=TStringStream.Create("");
BinStream.WriteComponent(Self);
BinStream.Seek(0,soFromBeginning);
ObjectBinaryToText(BinStream,StrStream); // вот тут оно и здыхало...
result:=StrStream.DataString;
finally
StrStream.Free;
BinStream.Free;
end;
end;

Примерно так...




 
vvolkov   (2002-10-31 14:42) [3]

Основная проблема в том, что при записи свойства Control не формируется вложенный компонент, а формируется запись его свойств. При преобразовании их в читаемую форму преобразователь естественно спотыкается поскольку не может интерпретировать такое свойство. Как выполнить формирование вложенного объекта?



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

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

Наверх




Память: 0.44 MB
Время: 0.008 c
1-34113
3asys
2002-10-30 14:51
2002.11.11
Программное создание ярлыка программы для рабочего стола


1-34118
TankMan
2002-10-30 21:41
2002.11.11
Люди поможите! Опять с хуками...


1-33939
SuperVK
2002-10-31 04:46
2002.11.11
Как из RichEdit вырезать столбец ширинов в несколько пиксел


8-34128
Serik
2002-06-18 18:30
2002.11.11
Определение темпа песни


3-33880
ScareCrow
2002-10-22 15:47
2002.11.11
Смена Table Langauge для табл.формата Paradox





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский