📄 fdbexpl.pas
字号:
unit FDBexpl;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons, Grobal2, HumDB;
type
TFrmFDBExplore = class(TForm)
ListBox1: TListBox;
EdFind: TEdit;
Label1: TLabel;
BtnAdd: TButton;
BtnDel: TButton;
ListBox2: TListBox;
BtnRebuild: TButton;
BtnBlankCount: TButton;
GroupBox1: TGroupBox;
BtnAutoClean: TButton;
Timer1: TTimer;
BtnCopyRcd: TButton;
BtnCopyNew: TButton;
CkLv1: TCheckBox;
CkLv7: TCheckBox;
CkLv14: TCheckBox;
procedure ListBox1Click(Sender: TObject);
procedure BtnDelClick(Sender: TObject);
procedure BtnRebuildClick(Sender: TObject);
procedure BtnBlankCountClick(Sender: TObject);
procedure BtnAddClick(Sender: TObject);
procedure BtnAddFromFileClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BtnAutoCleanClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure BtnCopyRcdClick(Sender: TObject);
procedure BtnCopyNewClick(Sender: TObject);
procedure EdFindKeyPress(Sender: TObject; var Key: Char);
procedure FormDestroy(Sender: TObject);
private
// nClearIndex:Integer; //0x324
// nClearCount:Integer;//0x328
SList_320: TStringList;
function ClearHumanItem(var ChrRecord: THumDataInfo): Boolean;
{ Private declarations }
public
{ Public declarations }
end;
var
FrmFDBExplore: TFrmFDBExplore;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
uses NewChr, UsrSoc, frmcpyrcd, DBSMain, DBShare;
{$R *.DFM}
procedure TFrmFDBExplore.EdFindKeyPress(Sender: TObject; var Key: Char);
//0x004A55F4
var
i: Integer;
sChrName: string;
begin
if Key <> #13 then Exit;
sChrName := Trim(EdFind.Text);
if sChrName = '' then Exit;
ListBox1.Clear;
ListBox2.Clear;
try
if HumDataDB.OpenEx then begin
HumDataDB.Find(sChrName, ListBox1.Items);
for i := 0 to ListBox1.Items.Count - 1 do begin
ListBox2.Items.Add(IntToStr(Integer(ListBox1.Items.Objects[i])));
end;
end;
finally
HumDataDB.Close;
end;
end;
procedure TFrmFDBExplore.ListBox1Click(Sender: TObject);
//0x004A5790
begin
ListBox2.ItemIndex := ListBox1.ItemIndex;
(*
***** TRY
|
004A57BB 64FF30 push dword ptr fs:[eax]
004A57BE 648920 mov fs:[eax], esp
* Reference to FrmFDBExplore
|
004A57C1 8B45FC mov eax, [ebp-$04]
* Reference to control TFrmFDBExplore.ListBox1 : TListBox
|
004A57C4 8B80D0020000 mov eax, [eax+$02D0]
* Reference to: stdctrls.TCustomListBox.GetItemIndex(TCustomListBox):Integer;
|
004A57CA E87966F8FF call 0042BE48
004A57CF 8BD0 mov edx, eax
* Reference to FrmFDBExplore
|
004A57D1 8B45FC mov eax, [ebp-$04]
* Reference to control TFrmFDBExplore.ListBox2 : TListBox
|
004A57D4 8B80E8020000 mov eax, [eax+$02E8]
* Reference to: stdctrls.TCustomListBox.SetItemIndex(TCustomListBox;Integer);
|
004A57DA E8A566F8FF call 0042BE84
004A57DF C745F8FFFFFFFF mov dword ptr [ebp-$08], $FFFFFFFF
* Reference to pointer to GlobalVar_004ADBD4
|
004A57E6 A1F8C24A00 mov eax, dword ptr [$004AC2F8]
004A57EB 8B00 mov eax, [eax]
* Reference to: Unit_0048A084.Proc_0048A304
|
004A57ED E8124BFEFF call 0048A304
004A57F2 84C0 test al, al
004A57F4 0F848A000000 jz 004A5884
* Reference to FrmFDBExplore
|
004A57FA 8B45FC mov eax, [ebp-$04]
* Reference to control TFrmFDBExplore.ListBox1 : TListBox
|
004A57FD 8B80D0020000 mov eax, [eax+$02D0]
* Reference to: stdctrls.TCustomListBox.GetItemIndex(TCustomListBox):Integer;
|
004A5803 E84066F8FF call 0042BE48
004A5808 8BD0 mov edx, eax
004A580A 8D8D90F3FFFF lea ecx, [ebp+$FFFFF390]
* Reference to FrmFDBExplore
|
004A5810 8B45FC mov eax, [ebp-$04]
* Reference to control TFrmFDBExplore.ListBox1 : TListBox
|
004A5813 8B80D0020000 mov eax, [eax+$02D0]
* Reference to field TListBox.Items : TStrings
|
004A5819 8B80F0010000 mov eax, [eax+$01F0]
004A581F 8B18 mov ebx, [eax]
* Reference to method TStrings.Strings [ Index()
|
004A5821 FF530C call dword ptr [ebx+$0C]
004A5824 8B9590F3FFFF mov edx, [ebp+$FFFFF390]
* Reference to pointer to GlobalVar_004ADBD4
|
004A582A A1F8C24A00 mov eax, dword ptr [$004AC2F8]
004A582F 8B00 mov eax, [eax]
* Reference to: Unit_0048A084.Proc_0048B534
|
004A5831 E8FE5CFEFF call 0048B534
004A5836 8945F8 mov [ebp-$08], eax
004A5839 837DF800 cmp dword ptr [ebp-$08], +$00
004A583D 7C39 jl 004A5878
004A583F 8D8D94F3FFFF lea ecx, [ebp+$FFFFF394]
* Reference to pointer to GlobalVar_004ADBD4
|
004A5845 A1F8C24A00 mov eax, dword ptr [$004AC2F8]
004A584A 8B00 mov eax, [eax]
004A584C 8B55F8 mov edx, [ebp-$08]
* Reference to: Unit_0048A084.Proc_0048B320
|
004A584F E8CC5AFEFF call 0048B320
* Reference to FrmFDBExplore
|
004A5854 8B45FC mov eax, [ebp-$04]
004A5857 8DB5B0F3FFFF lea esi, [ebp+$FFFFF3B0]
* Reference to field TFrmFDBExplore.OFFS_032C
|
004A585D 8DB82C030000 lea edi, [eax+$032C]
004A5863 B910030000 mov ecx, $00000310
004A5868 F3 rep
004A5869 A5 movsd
004A586A 8D45F4 lea eax, [ebp-$0C]
004A586D 8D95A0F3FFFF lea edx, [ebp+$FFFFF3A0]
* Reference to: system.@LStrFromString(String;String;ShortString;ShortString);
| or: system.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
004A5873 E8ACE5F5FF call 00403E24
* Reference to pointer to GlobalVar_004ADBD4
|
004A5878 A1F8C24A00 mov eax, dword ptr [$004AC2F8]
004A587D 8B00 mov eax, [eax]
* Reference to: Unit_0048A084.Proc_0048A400
|
004A587F E87C4BFEFF call 0048A400
* Reference to TFrmFDBViewer instance
|
004A5884 A1ECBF4A00 mov eax, dword ptr [$004ABFEC]
004A5889 8B00 mov eax, [eax]
* Reference to field TFrmFDBViewer.Visible : Boolean
|
004A588B 80784700 cmp byte ptr [eax+$47], $00
004A588F 747D jz 004A590E
004A5891 837DF800 cmp dword ptr [ebp-$08], +$00
004A5895 7C77 jl 004A590E
* Reference to TFrmFDBViewer instance
|
004A5897 A1ECBF4A00 mov eax, dword ptr [$004ABFEC]
004A589C 8B00 mov eax, [eax]
004A589E 8B55F8 mov edx, [ebp-$08]
* Reference to field TFrmFDBViewer.OFFS_02F8
|
004A58A1 8990F8020000 mov [eax+$02F8], edx
* Reference to FrmFDBExplore
|
004A58A7 8B45FC mov eax, [ebp-$04]
* Reference to control TFrmFDBExplore.ListBox1 : TListBox
|
004A58AA 8B80D0020000 mov eax, [eax+$02D0]
* Reference to: stdctrls.TCustomListBox.GetItemIndex(TCustomListBox):Integer;
|
004A58B0 E89365F8FF call 0042BE48
004A58B5 8BD0 mov edx, eax
004A58B7 8D8D8CF3FFFF lea ecx, [ebp+$FFFFF38C]
* Reference to FrmFDBExplore
|
004A58BD 8B45FC mov eax, [ebp-$04]
* Reference to control TFrmFDBExplore.ListBox1 : TListBox
|
004A58C0 8B80D0020000 mov eax, [eax+$02D0]
* Reference to field TListBox.Items : TStrings
|
004A58C6 8B80F0010000 mov eax, [eax+$01F0]
004A58CC 8B18 mov ebx, [eax]
* Reference to method TStrings.Strings [ Index()
|
004A58CE FF530C call dword ptr [ebx+$0C]
004A58D1 8B958CF3FFFF mov edx, [ebp+$FFFFF38C]
* Reference to TFrmFDBViewer instance
|
004A58D7 A1ECBF4A00 mov eax, dword ptr [$004ABFEC]
004A58DC 8B00 mov eax, [eax]
004A58DE 05FC020000 add eax, +$000002FC
* Reference to: system.@LStrAsg;
|
004A58E3 E86CE3F5FF call 00403C54
* Reference to TFrmFDBViewer instance
|
004A58E8 A1ECBF4A00 mov eax, dword ptr [$004ABFEC]
004A58ED 8B00 mov eax, [eax]
* Reference to field TFrmFDBViewer.OFFS_0300
|
004A58EF 8DB800030000 lea edi, [eax+$0300]
004A58F5 8DB594F3FFFF lea esi, [ebp+$FFFFF394]
004A58FB B917030000 mov ecx, $00000317
004A5900 F3 rep
004A5901 A5 movsd
* Reference to TFrmFDBViewer instance
|
004A5902 A1ECBF4A00 mov eax, dword ptr [$004ABFEC]
004A5907 8B00 mov eax, [eax]
* Reference to : TFrmFDBViewer._PROC_0049A054()
|
004A5909 E84647FFFF call 0049A054
004A590E 33C0 xor eax, eax
004A5910 5A pop edx
004A5911 59 pop ecx
004A5912 59 pop ecx
004A5913 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[嬪]脣繳嬱伳滙⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -