sr_unit.pas

p2pdbanywhere 可以通过之udp方式远程连接数据库的组件,这个组件非常好,是Delphi7,9,2006能够使用,包含源码.

unit SR_unit;

interface

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

type
  TSR_form = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Gauge1: TGauge;
    Gauge2: TGauge;
    Label3: TLabel;
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Memo2: TMemo;
    Memo3: TMemo;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  SR_form: TSR_form;
  close_over:boolean;
implementation

{$R *.dfm}

procedure TSR_form.FormShow(Sender: TObject);
begin
  close_over:=false;
  memo1.Text:='';
  memo2.Text:='';
  memo3.Text:='';
  self.Gauge1.Progress:=0;
  self.Gauge2.Progress:=0;
end;

procedure TSR_form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  close_over:=true;
end;

procedure TSR_form.Button1Click(Sender: TObject);
var  st:Tstringlist;
begin
  st:=Tstringlist.Create;
  st.Text:=memo1.Text;
  st.Sort;
  memo1.Text:=st.Text;
  st.Text:=memo2.Text;
  st.Sort;
  memo2.Text:=st.Text;
  showmessage(inttostr(memo1.Lines.Count)+'/'+inttostr(memo2.Lines.Count));
  st.Free;
end;

end.