www.pudn.com > 邮件群发程序1.2.rar > FileAdd.pas

unit FileAdd; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, Buttons; 
 
type 
  TfrmFileAdd = class(TForm) 
    GroupBox1: TGroupBox; 
    ListBox1: TListBox; 
    BitBtn1: TBitBtn; 
    BitBtn2: TBitBtn; 
    SpeedButton1: TSpeedButton; 
    BitBtn3: TBitBtn; 
    OpenDialog1: TOpenDialog; 
    procedure SpeedButton1Click(Sender: TObject); 
    procedure BitBtn3Click(Sender: TObject); 
    procedure FormClose(Sender: TObject; var Action: TCloseAction); 
    procedure BitBtn2Click(Sender: TObject); 
    procedure BitBtn1Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
    procedure savefile(); 
    procedure dispfile(); 
  end; 
 
var 
  frmFileAdd: TfrmFileAdd; 
 
implementation 
 
{$R *.dfm} 
 
procedure TfrmFileAdd.savefile(); 
var 
    ff:TextFile; 
    fn,strfile:string; 
    n:integer; 
begin 
    fn:=ExtractFilePath(Paramstr(0))+'fileadd.txt'; 
    AssignFile(ff,fn); 
    Rewrite(ff); 
    try 
        for n:=0 to ListBox1.Count-1 do 
        begin 
            strfile:=ListBox1.Items.Strings[n]; 
            Writeln(ff,strfile); 
        end; 
    finally 
        CloseFile(ff); 
    end; 
end; 
 
procedure TfrmFileAdd.SpeedButton1Click(Sender: TObject); 
begin 
    OpenDialog1.Filter:='所有文件(*.*)|*.*'; 
    if OpenDialog1.Execute then 
        ListBox1.Items.Add(OpenDialog1.FileName); 
end; 
 
procedure TfrmFileAdd.BitBtn3Click(Sender: TObject); 
var 
   //ff:TextFile; 
   fn:string; 
begin 
   fn:=ExtractFilePath(Paramstr(0))+'fileadd.txt'; 
   if FileExists(fn) then 
        DeleteFile(fn); 
   close; 
   {AssignFile(ff,fn); 
   Rewrite(ff); 
   try 
       Writeln(ff,''); 
   finally 
       CloseFile(ff); 
   end; 
   ListBox1.Clear; 
   close; 
   } 
end; 
 
procedure TfrmFileAdd.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
    free; 
end; 
 
procedure TfrmFileAdd.BitBtn2Click(Sender: TObject); 
begin 
    close; 
end; 
 
procedure TfrmFileAdd.BitBtn1Click(Sender: TObject); 
begin 
    savefile; 
    close; 
end; 
 
procedure TfrmFileAdd.dispfile(); 
var 
    ff:TextFile; 
    fn:string; 
    str:string; 
begin 
    listBox1.Clear; 
    fn:=ExtractFilePath(Paramstr(0))+'fileadd.txt'; 
    if Not FileExists(fn) then exit; 
    AssignFile(ff,fn); 
    Reset(ff); 
    try 
        while not Eof(ff) do 
        begin 
            Readln(ff,str); 
            ListBox1.Items.Add(str); 
        end; 
    finally 
        closefile(ff); 
    end; 
end; 
 
procedure TfrmFileAdd.FormCreate(Sender: TObject); 
begin 
    dispfile; 
end; 
 
end.