Delphi Formular als Textdatei erstellen und eine Binärdatei konvertieren

[Gast_1]

Hallo,

ich habe eine Textdatei mit der Endung .dfm erzeugt. Danach habe ich es mit ObjectTextToResource in eine Binärdatei konvertiert. Wenn ich es aber mit Delphi öffne kann ich es nicht als Formular anzeigen. Kann mir jemand weiterhelfen?

Gruß

PS: mit ObjectTextToBinary habe ich es auch versucht.

[Samuel Herzog]

//************************************************** ***
// Method: StringToComponent
// Description: create a component decribed by a string.
// Important : The component you want to create needs to
// be registered first. Otherwise the error <Class not found> will appear.
// To register a component use the statement :RegisterClass.
// Last changes: 18.09.01
//************************************************** ***
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