addredit.pas

飘飘的传奇服务端院代码 能编译的 要控件 老大就让我传上去吧

unit AddrEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, Spin, Buttons, ExtCtrls, Grids;
type
  TFrmEditAddr = class(TForm)
    AddrGrid: TStringGrid;
    Panel1: TPanel;
    BtnApplyAndClose: TButton;
    ERowCount: TSpinEdit;
    Label1: TLabel;
    BtnApplyRow: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure BtnApplyRowClick(Sender: TObject);
    procedure BtnApplyAndCloseClick(Sender: TObject);
    procedure Open();
  private
    procedure sub_4A6864();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmEditAddr: TFrmEditAddr;

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

implementation

uses HUtil32, DBShare;

{$R *.DFM}

procedure TFrmEditAddr.FormCreate(Sender: TObject);
begin
  ERowCount.Value := 8;
  AddrGrid.Cells[0, 0] := '角色选择网关地址';
  AddrGrid.Cells[1, 0] := '游戏网关';
  AddrGrid.Cells[2, 0] := '端口';
  AddrGrid.Cells[3, 0] := '游戏网关';
  AddrGrid.Cells[4, 0] := '端口';
  AddrGrid.Cells[5, 0] := '游戏网关';
  AddrGrid.Cells[6, 0] := '端口';
  AddrGrid.Cells[7, 0] := '游戏网关';
  AddrGrid.Cells[8, 0] := '端口';
end;

procedure TFrmEditAddr.BtnApplyRowClick(Sender: TObject);
begin
  if ERowCount.Value < 1 then ERowCount.Value := 1;
  AddrGrid.RowCount := ERowCount.Value + 1;
end;

procedure TFrmEditAddr.BtnApplyAndCloseClick(Sender: TObject);
var
  i, ii: Integer;
  SaveList: TStringList;
  s14: string;
begin
  SaveList := TStringList.Create;
  for i := 1 to AddrGrid.RowCount - 1 do begin
    s14 := Trim(AddrGrid.Cells[0, i]);
    if s14 <> '' then begin
      s14 := s14 + ' ';
      for ii := 1 to AddrGrid.ColCount - 1 do begin
        s14 := s14 + Trim(AddrGrid.Cells[ii, i]) + ' ';
      end;
    end;
    SaveList.Add(s14);
  end;
  try
    SaveList.SaveToFile(sGateConfFileName);
  except
    ShowMessage(sGateConfFileName + ' 保存异常！！！');
  end;
  Self.Close;
end;

procedure TFrmEditAddr.sub_4A6864();
var
  i, ii: Integer;
begin
  for i := 1 to AddrGrid.RowCount - 1 do begin
    for ii := 0 to AddrGrid.ColCount - 1 do begin
      AddrGrid.Cells[ii, i] := '';
    end;
  end;
end;

procedure TFrmEditAddr.Open();
var
  LoadList: TStringList;
  i, n18, n1C: Integer;
  sStr: string;
  sStr1: string;
begin
  sub_4A6864();
  LoadList := TStringList.Create;
  try
    LoadList.LoadFromFile(sGateConfFileName);
  except
    ShowMessage(sGateConfFileName + ' 读取异常！！！');
  end;
  n1C := 1;
  for i := 0 to LoadList.Count - 1 do begin
    sStr := Trim(LoadList.Strings[i]);
    if (sStr <> '') and (sStr[1] <> ';') then begin
      sStr := GetValidStr3(sStr, sStr1, [#32, #9]);
      AddrGrid.Cells[0, n1C] := sStr1;
      n18 := 0;
      while (True) do begin
        if sStr <> '' then begin
          sStr := GetValidStr3(sStr, sStr1, [#32, #9]);
          AddrGrid.Cells[n18 * 2 + 1, n1C] := sStr1;
          sStr := GetValidStr3(sStr, sStr1, [#32, #9]);
          AddrGrid.Cells[n18 * 2 + 2, n1C] := sStr1;
          Inc(n18);
          if n18 <= 4 then Continue;
        end;
        Inc(n1C);
        if AddrGrid.RowCount <= n1C then
          AddrGrid.RowCount := AddrGrid.RowCount + 1;
        break;
      end;
    end;
  end;
  LoadList.Free;
  Self.ShowModal;
  (*


  * Reference to FrmEditAddr
  |
  004A6A82   8B45FC                 mov     eax, [ebp-$04]

  * Reference to control TFrmEditAddr.AddrGrid : TStringGrid
  |
  004A6A85   8B80D0020000           mov     eax, [eax+$02D0]

  * Reference to field TStringGrid.RowCount : Longint
  |
  004A6A8B   8B8034020000           mov     eax, [eax+$0234]
  004A6A91   3B45E4                 cmp     eax, [ebp-$1C]
  004A6A94   7F12                   jnle    004A6AA8
  004A6A96   8B55E4                 mov     edx, [ebp-$1C]
  004A6A99   42                     inc     edx

  * Reference to FrmEditAddr
  |
  004A6A9A   8B45FC                 mov     eax, [ebp-$04]

  * Reference to control TFrmEditAddr.AddrGrid : TStringGrid
  |
  004A6A9D   8B80D0020000           mov     eax, [eax+$02D0]

  * Reference to: grids.TCustomGrid.SetRowCount(TCustomGrid;Longint);
  |
  004A6AA3   E850E6FEFF             call    004950F8
  004A6AA8   FF45EC                 inc     dword ptr [ebp-$14]
  004A6AAB   FF4DE0                 dec     dword ptr [ebp-$20]
  004A6AAE   0F85BCFEFFFF           jnz     004A6970
  004A6AB4   8B45F8                 mov     eax, [ebp-$08]

  * Reference to: system.TObject.Free(TObject);
  |
  004A6AB7   E8F8C3F5FF             call    00402EB4

  * Reference to FrmEditAddr
  |
  004A6ABC   A1C8DB4A00             mov     eax, dword ptr [$004ADBC8]

  * Reference to: forms.TCustomForm.Show(TCustomForm);
  |
  004A6AC1   E8B662FAFF             call    0044CD7C
  004A6AC6   33C0                   xor     eax, eax
  004A6AC8   5A                     pop     edx
  004A6AC9   59                     pop     ecx
  004A6ACA   59                     pop     ecx
  004A6ACB   648910                 mov     fs:[eax], edx

  ****** FINALLY
  |

  * Possible String Reference to: '_^[嬪]