unit1.pas

文件比对内容

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Memo2: TMemo;
    Memo3: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   BitBtn2.Caption:='文件1号码'+#13+'文件2中没有';
   Memo2.Visible:=False;
   Memo3.Visible:=False;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
   if OpenDialog1.Execute then
   Edit1.Text:=OpenDialog1.FileName;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
   if OpenDialog1.Execute then
   Edit2.Text:=OpenDialog1.FileName;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
 var
   i,j:Integer;
begin
   Memo1.Lines.Clear;
   if (Edit1.Text='') or (Edit2.Text='') then
   exit;
   Memo2.Lines.LoadFromFile(Edit1.Text);
   Memo3.Lines.LoadFromFile(Edit2.Text);
   for i:=0 to Memo2.Lines.Count-1 do
   begin
     for j:=0 to Memo3.Lines.Count-1 do
      begin
        if trim(Memo2.Lines.Strings[i])=trim(Memo3.Lines.Strings[j])  then
           Memo1.Lines.Append(Memo2.Lines.Strings[i]);
      end;
   end;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
  Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'/结果.txt');
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
 var
   i,j:Integer;
   k:String;
begin
   Memo1.Lines.Clear;
   if (Edit1.Text='') or (Edit2.Text='') then
   exit;
   Memo2.Lines.LoadFromFile(Edit1.Text);
   Memo3.Lines.LoadFromFile(Edit2.Text);
   for i:=0 to Memo2.Lines.Count-1 do
   begin
     for j:=0 to Memo3.Lines.Count-1 do
      begin
        if trim(Memo2.Lines.Strings[i])=trim(Memo3.Lines.Strings[j])  then
          begin
           k:='1';
           break;
          end
           else
          begin
           k:='0';
          end;
      end;
      if k='0' then
      Memo1.Lines.Append(Memo2.Lines.Strings[i]);
   end;
end;
end.