Форум: "Основная";
Текущий архив: 2002.09.23;
Скачать: [xml.tar.bz2];

Вниз

Как имея DFM файл построить по нему форму программно   Найти похожие ветки 

← →
carmen   (2002-09-11 23:19) [0]

Народ имеется обычный DFM файл. Как программно построить по нему форму. Суть проблемы в следующем: имеется программа и к ней подключаются формы которые храняться в обычном текстовом DFM файле. Может какаято библиотека имеется.
Заранее благодарен.

---

← →
Кадастрат в дауне   (2002-09-12 00:01) [1]

TStrean.ReadComponent

---

← →
Рыжик   (2002-09-12 09:26) [2]

ObjectTextToResource

---

← →
Alx2   (2002-09-12 14:35) [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;


---

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

Форум: "Основная";
Текущий архив: 2002.09.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.006 c