📄 addredit.pas
字号:
unit AddrEdit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmEditAddr=class(TForm)
AddrGrid: TStringGrid;
Panel1: TPanel;
BtnApplyAndClose: TButton;
ERowCount: TSpinEdit;
Label1: TLabel;
procedure FormCreate(Sender : TObject);
procedure BtnApplyAndCloseClick(Sender : TObject);
procedure Open(Sender : TObject);
procedure ERowCountChange(Sender : TObject);
procedure _PROC_004D77B8(Sender : TObject);
procedure _PROC_004D7A6C(Sender : TObject);
procedure _PROC_004D7A9C(Sender : TObject);
procedure _PROC_004D7AA4(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmEditAddr: TFrmEditAddr;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmEditAddr.FormCreate(Sender : TObject);
begin
(*
004D734C 53 push ebx
004D734D 8BD8 mov ebx, eax
004D734F BA14000000 mov edx, $00000014
004D7354 8B8304030000 mov eax, [ebx+$0304]
* Reference to : TTimerSpeedButton._PROC_00496194()
|
004D735A E835EEFBFF call 00496194
* Possible String Reference to: '服务器编号'
|
004D735F 6804754D00 push $004D7504
004D7364 33C9 xor ecx, ecx
004D7366 33D2 xor edx, edx
004D7368 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D736E E80183FBFF call 0048F674
* Possible String Reference to: '角色网关地址'
|
004D7373 6818754D00 push $004D7518
004D7378 33C9 xor ecx, ecx
004D737A BA01000000 mov edx, $00000001
004D737F 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D7385 E8EA82FBFF call 0048F674
* Possible String Reference to: '游戏网关1'
|
004D738A 6830754D00 push $004D7530
004D738F 33C9 xor ecx, ecx
004D7391 BA02000000 mov edx, $00000002
004D7396 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D739C E8D382FBFF call 0048F674
* Possible String Reference to: '端口1'
|
004D73A1 6844754D00 push $004D7544
004D73A6 33C9 xor ecx, ecx
004D73A8 BA03000000 mov edx, $00000003
004D73AD 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D73B3 E8BC82FBFF call 0048F674
* Possible String Reference to: '游戏网关2'
|
004D73B8 6854754D00 push $004D7554
004D73BD 33C9 xor ecx, ecx
004D73BF BA04000000 mov edx, $00000004
004D73C4 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D73CA E8A582FBFF call 0048F674
* Possible String Reference to: '端口2'
|
004D73CF 6868754D00 push $004D7568
004D73D4 33C9 xor ecx, ecx
004D73D6 BA05000000 mov edx, $00000005
004D73DB 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D73E1 E88E82FBFF call 0048F674
* Possible String Reference to: '游戏网关3'
|
004D73E6 6878754D00 push $004D7578
004D73EB 33C9 xor ecx, ecx
004D73ED BA06000000 mov edx, $00000006
004D73F2 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D73F8 E87782FBFF call 0048F674
* Possible String Reference to: '端口3'
|
004D73FD 688C754D00 push $004D758C
004D7402 33C9 xor ecx, ecx
004D7404 BA07000000 mov edx, $00000007
004D7409 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D740F E86082FBFF call 0048F674
* Possible String Reference to: '游戏网关4'
|
004D7414 689C754D00 push $004D759C
004D7419 33C9 xor ecx, ecx
004D741B BA08000000 mov edx, $00000008
004D7420 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D7426 E84982FBFF call 0048F674
* Possible String Reference to: '端口4'
|
004D742B 68B0754D00 push $004D75B0
004D7430 33C9 xor ecx, ecx
004D7432 BA09000000 mov edx, $00000009
004D7437 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D743D E83282FBFF call 0048F674
* Possible String Reference to: '游戏网关5'
|
004D7442 68C0754D00 push $004D75C0
004D7447 33C9 xor ecx, ecx
004D7449 BA0A000000 mov edx, $0000000A
004D744E 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D7454 E81B82FBFF call 0048F674
* Possible String Reference to: '端口5'
|
004D7459 68D4754D00 push $004D75D4
004D745E 33C9 xor ecx, ecx
004D7460 BA0B000000 mov edx, $0000000B
004D7465 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D746B E80482FBFF call 0048F674
* Possible String Reference to: '游戏网关6'
|
004D7470 68E4754D00 push $004D75E4
004D7475 33C9 xor ecx, ecx
004D7477 BA0C000000 mov edx, $0000000C
004D747C 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D7482 E8ED81FBFF call 0048F674
* Possible String Reference to: '端口6'
|
004D7487 68F8754D00 push $004D75F8
004D748C 33C9 xor ecx, ecx
004D748E BA0D000000 mov edx, $0000000D
004D7493 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D7499 E8D681FBFF call 0048F674
* Possible String Reference to: '游戏网关7'
|
004D749E 6808764D00 push $004D7608
004D74A3 33C9 xor ecx, ecx
004D74A5 BA0E000000 mov edx, $0000000E
004D74AA 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D74B0 E8BF81FBFF call 0048F674
* Possible String Reference to: '端口7'
|
004D74B5 681C764D00 push $004D761C
004D74BA 33C9 xor ecx, ecx
004D74BC BA0F000000 mov edx, $0000000F
004D74C1 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D74C7 E8A881FBFF call 0048F674
* Possible String Reference to: '游戏网关8'
|
004D74CC 682C764D00 push $004D762C
004D74D1 33C9 xor ecx, ecx
004D74D3 BA10000000 mov edx, $00000010
004D74D8 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D74DE E89181FBFF call 0048F674
* Possible String Reference to: '端口8'
|
004D74E3 6840764D00 push $004D7640
004D74E8 33C9 xor ecx, ecx
004D74EA BA11000000 mov edx, $00000011
004D74EF 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D74F5 E87A81FBFF call 0048F674
004D74FA 5B pop ebx
004D74FB C3 ret
*)
end;
procedure TFrmEditAddr.BtnApplyAndCloseClick(Sender : TObject);
begin
(*
004D7648 55 push ebp
004D7649 8BEC mov ebp, esp
004D764B B905000000 mov ecx, $00000005
004D7650 6A00 push $00
004D7652 6A00 push $00
004D7654 49 dec ecx
004D7655 75F9 jnz 004D7650
004D7657 53 push ebx
004D7658 56 push esi
004D7659 57 push edi
004D765A 8955FC mov [ebp-$04], edx
004D765D 8BF0 mov esi, eax
004D765F 33C0 xor eax, eax
004D7661 55 push ebp
004D7662 689A774D00 push $004D779A
***** TRY
|
004D7667 64FF30 push dword ptr fs:[eax]
004D766A 648920 mov fs:[eax], esp
004D766D B201 mov dl, $01
004D766F A1B8CB4100 mov eax, dword ptr [$0041CBB8]
* Reference to: InStack.TInStack.Create(TInStack;boolean);
| or: System.TObject.Create(TObject;Boolean);
|
004D7674 E8FFC4F2FF call 00403B78
004D7679 8945F4 mov [ebp-$0C], eax
004D767C 8B86F8020000 mov eax, [esi+$02F8]
004D7682 8B804C020000 mov eax, [eax+$024C]
004D7688 48 dec eax
004D7689 85C0 test eax, eax
004D768B 0F8EC0000000 jle 004D7751
004D7691 8945EC mov [ebp-$14], eax
004D7694 C745F801000000 mov dword ptr [ebp-$08], $00000001
004D769B 8D45E8 lea eax, [ebp-$18]
004D769E 50 push eax
004D769F 8B4DF8 mov ecx, [ebp-$08]
004D76A2 33D2 xor edx, edx
004D76A4 8B86F8020000 mov eax, [esi+$02F8]
* Reference to: Grids.TStringGrid.GetCells(TStringGrid;Integer;Integer):AnsiString;
|
004D76AA E8557FFBFF call 0048F604
004D76AF 8B45E8 mov eax, [ebp-$18]
004D76B2 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
004D76B5 E88E35F3FF call 0040AC48
004D76BA 837DF000 cmp dword ptr [ebp-$10], +$00
004D76BE 745E jz 004D771E
004D76C0 8D45F0 lea eax, [ebp-$10]
004D76C3 BAB0774D00 mov edx, $004D77B0
* Reference to: System.@LStrCat;
|
004D76C8 E8F3D5F2FF call 00404CC0
004D76CD 8B86F8020000 mov eax, [esi+$02F8]
004D76D3 8B981C020000 mov ebx, [eax+$021C]
004D76D9 4B dec ebx
004D76DA 85DB test ebx, ebx
004D76DC 7E40 jle 004D771E
004D76DE BF01000000 mov edi, $00000001
004D76E3 FF75F0 push dword ptr [ebp-$10]
004D76E6 8D45E0 lea eax, [ebp-$20]
004D76E9 50 push eax
004D76EA 8B4DF8 mov ecx, [ebp-$08]
004D76ED 8BD7 mov edx, edi
004D76EF 8B86F8020000 mov eax, [esi+$02F8]
* Reference to: Grids.TStringGrid.GetCells(TStringGrid;Integer;Integer):AnsiString;
|
004D76F5 E80A7FFBFF call 0048F604
004D76FA 8B45E0 mov eax, [ebp-$20]
004D76FD 8D55E4 lea edx, [ebp-$1C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
004D7700 E84335F3FF call 0040AC48
004D7705 FF75E4 push dword ptr [ebp-$1C]
004D7708 68B0774D00 push $004D77B0
004D770D 8D45F0 lea eax, [ebp-$10]
004D7710 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
004D7715 E85ED6F2FF call 00404D78
004D771A 47 inc edi
004D771B 4B dec ebx
004D771C 75C5 jnz 004D76E3
004D771E 8D55DC lea edx, [ebp-$24]
004D7721 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
004D7724 E81F35F3FF call 0040AC48
004D7729 837DDC00 cmp dword ptr [ebp-$24], +$00
004D772D 7416 jz 004D7745
004D772F 8D55D8 lea edx, [ebp-$28]
004D7732 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
004D7735 E80E35F3FF call 0040AC48
004D773A 8B55D8 mov edx, [ebp-$28]
004D773D 8B45F4 mov eax, [ebp-$0C]
004D7740 8B08 mov ecx, [eax]
004D7742 FF5138 call dword ptr [ecx+$38]
004D7745 FF45F8 inc dword ptr [ebp-$08]
004D7748 FF4DEC dec dword ptr [ebp-$14]
004D774B 0F854AFFFFFF jnz 004D769B
004D7751 8B1504814E00 mov edx, [$004E8104]
004D7757 8B12 mov edx, [edx]
004D7759 8B45F4 mov eax, [ebp-$0C]
004D775C 8B08 mov ecx, [eax]
004D775E FF5174 call dword ptr [ecx+$74]
004D7761 8BC6 mov eax, esi
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
004D7763 E8F860FAFF call 0047D860
004D7768 A1DC824E00 mov eax, dword ptr [$004E82DC]
004D776D 8B00 mov eax, [eax]
004D776F 8B55FC mov edx, [ebp-$04]
* Reference to : TFrmDBSrv.BtnReloadAddrClick()
|
004D7772 E81D680000 call 004DDF94
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -