unit1.pas

《Delphi 7应用编程150例》源码（全）

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ExtCtrls;

type
  TfrmMain = class(TForm)
    MainMenu1: TMainMenu;
    mnuFile: TMenuItem;
    mnuOpenFile: TMenuItem;
    mnuSaveFile: TMenuItem;
    N1: TMenuItem;
    mnuClear: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Button1: TButton;
    Edit1: TEdit;
    procedure mnuSaveFileClick(Sender: TObject);
    procedure mnuOpenFileClick(Sender: TObject);
    procedure mnuClearClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;
  AResFile: string;
implementation

{$R *.dfm}

procedure TfrmMain.mnuSaveFileClick(Sender: TObject);
var
    Stream: TFileStream;
    CName: string;
begin
  if SaveDialog1.Execute then
      AResFile:=SaveDialog1.FileName
  else
      exit;

   CName := Copy(self.ClassName, 2, 99);
   Stream := TFileStream.Create(AResFile, fmCreate);
   try
     Stream.WriteComponentRes(CName, self);
   finally
     Stream.Free;
   end;
end;

procedure TfrmMain.mnuOpenFileClick(Sender: TObject);
var
    Stream: TFileStream;
    I:Integer;
begin
  if OpenDialog1.Execute then
      AResFile:=OpenDialog1.FileName
  else
      exit;

  Stream := TFileStream.Create(AResFile, fmOpenRead);
  try
    for I := self.ComponentCount - 1 downto 0 do
        self.Components[I].Free;
    Stream.ReadComponentRes(self);
  finally
     Stream.Free;
  end;
end;


procedure TfrmMain.mnuClearClick(Sender: TObject);
var
    I:Integer;
begin
    for I := self.ComponentCount - 1 downto 0 do
    begin
        if self.Components[I].ClassName='TMainMenu' then continue;
        if self.Components[I].ClassName='TMenuItem' then continue;
        if self.Components[I].ClassName='TOpenDialog' then continue;
        if self.Components[I].ClassName='TSaveDialog' then continue;
        self.Components[I].Free;
    end;
end;

end.