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

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

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

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