feeutil.pas

翎风世界..传奇服务端..DELPHI源代码 包括DBServer,LogDataServer,LoginGate,LoginSrv,M2Server等..内容齐全.

unit FeeUtil;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, Grids, Buttons, ExtCtrls;
type
  TFrmFeeUtil=class(TForm)
    Panel1: TPanel;
    FGrid: TStringGrid;
    EdFindID: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    EdFindPC: TEdit;
    OpenDialog1: TOpenDialog;
    Label3: TLabel;
    BtnConvert: TSpeedButton;
    BtnFindId: TSpeedButton;
    BtnFindIdAll: TSpeedButton;
    BtnFindGroup: TSpeedButton;
    BtnFindPCAll: TSpeedButton;
    BtnAddRcd: TSpeedButton;
    BtnDelRcd: TSpeedButton;
    BtnChangeRcd: TSpeedButton;
    BtnBack: TSpeedButton;
    LbPlus: TLabel;
    procedure BtnConvertClick(Sender : TObject);
    procedure BtnFindIDClick(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure FGridDrawCell(Sender : TObject);
    procedure FGridKeyPress(Sender : TObject);
    procedure EdFindIDKeyPress(Sender : TObject);
    procedure EdFindPCKeyPress(Sender : TObject);
    procedure FormKeyDown(Sender : TObject);
    procedure BtnBackClick(Sender : TObject);
    procedure _PROC_0049DA40(Sender : TObject);
    procedure _PROC_0049DB75(Sender : TObject);
    procedure _PROC_0049DEE4(Sender : TObject);
    procedure _PROC_0049DF14(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmFeeUtil: TFrmFeeUtil;

{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TFrmFeeUtil.BtnConvertClick(Sender : TObject);
begin
(*
0049D748   55                     push    ebp
0049D749   8BEC                   mov     ebp, esp
0049D74B   83C4F0                 add     esp, -$10
0049D74E   33C9                   xor     ecx, ecx
0049D750   894DF0                 mov     [ebp-$10], ecx
0049D753   8955F4                 mov     [ebp-$0C], edx
0049D756   8945FC                 mov     [ebp-$04], eax
0049D759   33C0                   xor     eax, eax
0049D75B   55                     push    ebp

* Possible String Reference to: '閐^