del_frm.pas

本程序用来删除文本文件的空行

unit del_frm;

interface

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

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    FileOpen: TOpenDialog;
    N6: TMenuItem;
    FileSave: TSaveDialog;
    N7: TMenuItem;
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N3Click(Sender: TObject);
begin
application.terminate;
end;

procedure TForm1.N5Click(Sender: TObject);
var
  I: Integer;
begin
  For I := RichEdit1.Lines.Count - 1 downto 0 do
    If Trim(RichEdit1.Lines[I]) = '' then
      RichEdit1.Lines.Delete(I);
end;

procedure TForm1.N2Click(Sender: TObject);
begin
  if FileOpen.Execute then
    RichEdit1.Lines.LoadFromFile(FileOpen.FileName)
  else exit;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
 richedit1.Lines.SaveToFile(FileOpen.FileName);
end;

procedure TForm1.N7Click(Sender: TObject);
begin
  if FileSave.Execute then
    RichEdit1.Lines.SaveToFile(FileSave.FileName + '.txt')
  else
    begin
       showmessage('文件另存失败，请重新保存！');
       exit;
    end;
end;

end.