盒子论坛 v2.1

unit uMainForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TfrmMainForm = class(TForm)
    btn_Create_DFM_file: TButton;
    btn_Loading_DFM_file_as_a_Form: TButton;
    procedure btn_Create_DFM_fileClick(Sender: TObject);
    procedure btn_Loading_DFM_file_as_a_FormClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMainForm: TfrmMainForm;

implementation

{$R *.dfm}

procedure TfrmMainForm.btn_Create_DFM_fileClick(Sender: TObject);
var
  myNewDFM: TStream;
  myStreamToWorks: TStream;
begin
  try
    myNewDFM := TFileStream.Create('myNewDFMfile.dfm', fmCreate);
    myStreamToWorks := TMemoryStream.Create;
    try
      //
      myStreamToWorks.WriteComponent(frmMainForm);
      myStreamToWorks.Seek(0, soFromBeginning);
      //
      ObjectBinaryToText(myStreamToWorks, myNewDFM);
    except
      on E: Exception do
        ShowMessage('My Error: ' + E.message);
    end;
  finally
    myNewDFM.Free;
    myStreamToWorks.Free;
  end;
end;

procedure TfrmMainForm.btn_Loading_DFM_file_as_a_FormClick(Sender: TObject);
var
  myNewDFM: TStream;
  myStreamToWorks: TStream;
begin
  try
    myNewDFM := TFileStream.Create('myNewDFMfile.dfm', fmOpenRead);
    myStreamToWorks := TMemoryStream.Create;
    try
      myNewDFM.Seek(0, soFromBeginning);
      //
      ObjectTextToBinary(myNewDFM, myStreamToWorks);
      //
      myStreamToWorks.Seek(0, soFromBeginning);
      //
      frmMainForm.DestroyComponents; // destroying current comoponents...
      //
      // try comment this line to see that the components dont will be "loaded"...
      myStreamToWorks.ReadComponent(frmMainForm); // receiving the components definitions...
      //
    except
      on E: Exception do
        ShowMessage('My Error: ' + E.message);
    end;
  finally
    myNewDFM.Free;
    myStreamToWorks.Free;
  end;
end;

initialization

ReportMemoryLeaksOnShutdown := true;

finalization

end.
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3

作者：

roadrunner (roadrunner)	★☆☆☆☆	-
	盒子活跃会员

2021/6/20 10:57:37

4楼：

你把delphi所有的单元全都uses一次就可以了
----------------------------------------------
-

信息

登陆以后才能回复