ReadComponentResFile

[Fossibaer58809]

Hallo zusammen,

ich meine mich dunkel erinnern zu können, dass man in Delphi 6 auswählen konnte ob die Formulardateien als Resource oder als Text abgespeichert werden sollen. In Delphi 7 ist das Textformat aber Standard. Deshalb muss die Datei konvertiert werden um sie mit ReadComponentResFile einlesen zu können.

Hier ein kurzes funktionierendes Beispiel (ganz quick and dirty).

Code:

procedure TForm1.Button1Click(Sender: TObject);
var path : string;
    InStream,OutStream : TMemoryStream;
begin
    path:=ExtractFilePath(Paramstr(0));
    Instream := TMemoryStream.Create;
    OutStream := TMemoryStream.Create;
    InStream.LoadFromFile(path+'unit2.dfm');
    InStream.Position := 0;
    ObjectTextToResource(InStream, OutStream);
    OutStream.Position := 0;
    Form2:=TForm2.CreateNew(Application);
    OutStream.ReadComponentRes(Form2);
    InStream.Free;
    OutStream.Free;
    Form2.Show;
end;