//Para leer
with TFileStream.Create('c:\MyDfmFile.DFM', fmOpenRead) do
try
ReadComponentRes(MyForm);
finally
Free;
end;
//Para escribir
with TFileStream.Create('c:\MyDfmFile.DFM', fmCreate) do
try
WriteComponentRes(MyForm.ClassName, MyForm);
finally
Free;
end;
SAludos,
|