| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание формы в Run-Time из dfm-файла [D6, Win95/98, WinME]

b-Ars ©   (2002-10-23 12:32:00) 

Да, безбашенно, но любопытно, это вообще возможно не с нуля? Т.е. вопрос: Есть ли какие-то функции, как делает это Delphi IDE, или только руками?

---

b-Ars   (2002-10-24 12:26:00) [1]

Т.е. вызвав эти команды я смогу обращаться уже как к обычному объекту, я всё так понял?

---

Юрий Зотов   (2002-10-23 17:41:00) [2]

ReadComponentResFile.
И все.

---

Alx2   (2002-10-23 12:47:00) [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:00) [4]

Плохо понял вопрос. За раннее прошу прощения.
В мастерах есть статья "Сохранение и загрузка данных в объекты на примере коллекций", сохранение как в тексовый dfm.

---

b-Ars   (2002-10-23 12:41:00) [5]

Skier © (23.10.02 12:34)
Что за TReader & TWriter?

---

Skier   (2002-10-23 12:34:00) [6]

>b-Ars

> как делает это Delphi IDE


unit Classes + TReader & TWriter

---

Наверх