frm_tempfile.pas

范例宝典例168,在编程时我们有时会需要开辟若干个临时文件夹作为缓存,这里提供了如何建立临时文件夹的过程

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.