Форум: "Основная";
Текущий архив: 2002.11.04;
Скачать: [xml.tar.bz2];
Вниз
Создание формы в Run-Time из dfm-файла Найти похожие ветки
← →
b-Ars (2002-10-23 12:32) [0]Да, безбашенно, но любопытно, это вообще возможно не с нуля? Т.е. вопрос: Есть ли какие-то функции, как делает это Delphi IDE, или только руками?
← →
Skier (2002-10-23 12:34) [1]>b-Ars
> как делает это Delphi IDE
unit Classes + TReader & TWriter
← →
b-Ars (2002-10-23 12:41) [2]Skier © (23.10.02 12:34)
Что за TReader & TWriter?
← →
Alx2 (2002-10-23 12:47) [3]
This example shows how to use the built-in VCL component streaming support to convert any component into a string and convert that string back into a component.
function ComponentToString(Component: TComponent): string;
var
BinStream:TMemoryStream;
StrStream: TStringStream;
s: string;
begin
BinStream := TMemoryStream.Create;
try
StrStream := TStringStream.Create(s);
try
BinStream.WriteComponent(Component);
BinStream.Seek(0, soFromBeginning);
ObjectBinaryToText(BinStream, StrStream);
StrStream.Seek(0, soFromBeginning);
Result:= StrStream.DataString;
finally
StrStream.Free;
end;
finally
BinStream.Free
end;
end;
function StringToComponent(Value: string): TComponent;
var
StrStream:TStringStream;
BinStream: TMemoryStream;
begin
StrStream := TStringStream.Create(Value);
try
BinStream := TMemoryStream.Create;
try
ObjectTextToBinary(StrStream, BinStream);
BinStream.Seek(0, soFromBeginning);
Result := BinStream.ReadComponent(nil);
finally
BinStream.Free;
end;
finally
StrStream.Free;
end;
end;
← →
turusov (2002-10-23 12:47) [4]Плохо понял вопрос. За раннее прошу прощения.
В мастерах есть статья "Сохранение и загрузка данных в объекты на примере коллекций", сохранение как в тексовый dfm.
← →
Юрий Зотов (2002-10-23 17:41) [5]ReadComponentResFile.
И все.
← →
b-Ars (2002-10-24 12:26) [6]Т.е. вызвав эти команды я смогу обращаться уже как к обычному объекту, я всё так понял?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.04;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.015 c
