frmcpyrcd.pas

来自「2009最新 传奇汉化0599代码 传奇汉化」· PAS 代码 · 共 59 行

unit frmcpyrcd;

interface

uses
  svn, Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, Buttons;
type
  TFrmCopyRcd=class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    EdWithID: TEdit;
    procedure FormShow(Sender : TObject);
  private
    { Private declarations }
  public
    s2F0,s2F4,s2F8:String;
    function  sub_49C09C():Boolean;
    { Public declarations }
  end ;

var
  FrmCopyRcd: TFrmCopyRcd;

implementation

{$R *.DFM}

procedure TFrmCopyRcd.FormShow(Sender : TObject);
begin
  Edit1.SetFocus;
end;

function TFrmCopyRcd.sub_49C09C: Boolean;
//0x0049C09C
begin
  s2F0:='';
  s2F4:='';
  s2F8:='';
  Edit1.Text:=s2F0;
  Edit2.Text:=s2F4;
  if Self.ShowModal = mrOK then begin
    s2F0:=Trim(Edit1.Text);
    s2F4:=Trim(Edit2.Text);
    s2F8:=Trim(EdWithID.Text);
    Result:=True;
  end else Result:=False;
end;

{---- Adjust global SVN revision ----}
initialization
  SVNRevision('$Id: frmcpyrcd.pas 121 2006-08-06 01:10:41Z Dataforce $');
end.