【delphi开源代码栏目提醒】：本文主要为网学会员提供frm_TempFile.pas，希望对需要frm_TempFile.pas网友有所帮助，学习一下!

    unit frm_TempFile;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ExtCtrls;
    
    type
      TFrmTemp = class(TForm)
        BtnCreateTemp: TButton;
        LblTemp: TLabel;
        EdTemp: TEdit;
        BtnClose: TButton;
        TmSaveFile: TTimer;
        GBxTempFile: TGroupBox;
        MmTemp: TMemo;
        Bevel1: TBevel;
        procedure BtnCreateTempClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure BtnCloseClick(Sender: TObject);
        procedure TmSaveFileTimer(Sender: TObject);
      private
        dir:string;
        TempFile:string;
        procedure ifsave;
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FrmTemp: TFrmTemp;
    
    implementation
    
    {$R *.dfm}
    procedure TFrmTemp.ifsave;
    begin
      if mmtemp.Modified then
      begin
        if Application.MessageBox('文件没有保存！是否保存文件？','询问',MB_YESNO+MB_ICONQuestion) = ID_YES then
        begin
          with TSaveDialog.Create(nil) do
          begin
            try
            if Execute then
              MmTemp.Lines.SaveToFile(FileName);
            finally
              Free;
            end;
          end;
        end;
      end;
      if TempFile <> '' then
        Deletefile(TempFile);
    end;
    
    procedure TFrmTemp.BtnCreateTempClick(Sender: TObject);
    var
      Temp:array [0..255] of char;
    begin
      ifsave;
      GetTempFileName(pchar(dir),'TEXT',0,Temp);
      TempFile := Temp;
      EDTemp.Text:=TempFile;
      mmTemp.Lines.LoadFromFile(TempFile);
    end;
    
    procedure TFrmTemp.FormCreate(Sender: TObject);
    begin
      getdir(0,dir);
    end;
    
    procedure TFrmTemp.BtnCloseClick(Sender: TObject);
    begin
      ifsave;
      close;
    end;
    
    procedure TFrmTemp.TmSaveFileTimer(Sender: TObject);
    begin
      if TempFile <> '' then
      begin
        MmTemp.Lines.SaveToFile(TempFile);
      end;
    end;
    
    end.