unitskillsetdlg.~pas

诛仙小挂

unit UnitSkillSetDlg;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls,Unit1,consttype;

type
  TSkillSetDlg = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    Button_add: TButton;
    Button_del: TButton;
    ListBox_Skill: TListBox;
    ListBox_ComSkill: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    procedure CancelBtnClick(Sender: TObject);
    procedure Button_delClick(Sender: TObject);
    procedure Button_addClick(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitSkill;
  end;

var
  SkillSetDlg: TSkillSetDlg;

implementation
uses UnitCall;
var skill:ATSkill;
{$R *.dfm}

procedure TSkillSetDlg.CancelBtnClick(Sender: TObject);
begin
self.Visible:=false;
end;

procedure TSkillSetDlg.InitSkill;
var
myFuncCall:FuncCall;
i:integer;
begin
self.ListBox_skill.Items.Clear;
self.ListBox_ComSkill.Items.Clear;
myFuncCall.GetSkill(skill);
for i:=0 to high(skill) do
  begin
  self.ListBox_skill.Items.Add(skill[i].name);
  end;
end;
procedure TSkillSetDlg.Button_delClick(Sender: TObject);
begin
ListBox_ComSkill.Items.Delete(ListBox_ComSkill.ItemIndex);
end;

procedure TSkillSetDlg.Button_addClick(Sender: TObject);
begin
ListBox_ComSkill.Items.Add(ListBox_skill.Items.Strings[ListBox_skill.itemIndex])
end;

procedure TSkillSetDlg.OKBtnClick(Sender: TObject);
var
i,j:integer;
begin
//Form1.ListBox_compSkill.Items.Clear;
setlength(compSkill,ListBox_ComSkill.Count);
for i:=0 to high(compSkill) do
  begin

    for j:=0 to high(skill) do
      begin
      if ListBox_ComSkill.Items.Strings[i]=skill[j].name then
        begin
        compSkill[i].id:=skill[j].id;
        compSkill[i].name:=skill[j].name;
        //Form1.ListBox_compSkill.Items.Add(compSkill[i].name);
        end;
      end;
  end;
  self.Visible:=false;
end;

end.