ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

air 2006/02/27(ｿｽｿｽ) 14:05:22

ComboBox1.Itemsｿｽﾌ茨ｿｽﾂ茨ｿｽﾂの行ｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾆ、
ｿｽ痰ｦｿｽﾎプｿｽｿｽｿｽ_ｿｽEｿｽｿｽｿｽﾌ茨ｿｽsｿｽﾚゑｿｽｿｽｿｽShowmessageｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽsｿｽﾚでゑｿｽShowmessageｿｽﾅゑｿｽ痰､ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅ搾ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽﾉ値ｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
TStringListｿｽｿｽgｿｽｿｽｿｽﾎ出ｿｽｿｽｿｽｿｽﾆ包ｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ場合ｿｽﾅは擾ｿｽ閧ｭｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽiｿｽｿｽｿｽｿｽﾍ趣ｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾌミｿｽXｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽj
ｿｽﾇなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽTｿｽCｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾎ具ｿｽｿｽｿｽｿｽﾄゑｿｽ轤ｦｿｽｿｽﾆ幸ｿｽｿｽｿｽﾅゑｿｽ

Basser 2006/02/27(ｿｽｿｽ) 15:09:24

ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾌ托ｿｽｿｽﾉゑｿｽ Objects ｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽgｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
  private
    FMsgList: TStringList;
    procedure UpdateComboList;
  public
    { Public ｿｽ骭ｾ }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  FMsgList:= TStringList.Create;
  UpdateComboList;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FMsgList.Free;
end;

procedure TForm1.UpdateComboList;
begin
  ComboBox1.Items.Clear;
  FMsgList.Clear;

  ComboBox1.Items.Add('1');
  FMsgList.Add('ｿｽｿｽ');
  ComboBox1.Items.Add('2');
  FMsgList.Add('ｿｽｿｽ');
  ComboBox1.Items.Add('3');
  FMsgList.Add('ｿｽQ');
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  if (ComboBox1.ItemIndex >= 0) then
    ShowMessage(FMsgList[ComboBox1.ItemIndex]);
end;

end.

HOta 2006/02/27(ｿｽｿｽ) 16:31:26

TStringListｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAObjectｿｽｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽB

type   //ｿｽIｿｽｿｽｿｽWｿｽiｿｽｿｽｿｽﾌｿｽｿｽRｿｽ[ｿｽhｿｽ^
   TMyrec=Record
      DispStr   : string;
      DialogStr : String;
   end;
   //ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽ^ｿｽﾌポｿｽCｿｽｿｽｿｽ^ｿｽﾌ型ｿｽｿｽﾝ定しｿｽﾄゑｿｽｿｽｿｽ
   PMyRec=^TMyRec;
-------------
var
   i:integer;
   myrec:PMyRec;
begin
  new(myrec);
  myrec^.DispStr:='1';
  myrec^.DialogStr = 'ｿｽｿｽ';
  ComboBox1.Items.AddObject(myrec^.DispStr,Object(myrec));
  new(myrec);
  myrec^.DispStr:='2';
  myrec^.DialogStr = 'ｿｽｿｽ';
  ComboBox1.Items.AddObject(myrec^.DispStr,Object(myrec));

ｿｽﾆコｿｽｿｽｿｽ{ｿｽ{ｿｽbｿｽNｿｽXｿｽﾉ格ｿｽ[ｿｽｿｽｿｽﾜゑｿｽｿｽB

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  if (ComboBox1.ItemIndex >= 0) then
    ShowMessage(PMyRec(ComboBox1.Items.Objects[ComboBox1.ItemIndex])^.DialogStr );
end;
//ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾉ必ｿｽｿｽｿｽSｿｽｿｽdisposeｿｽｿｽｿｽﾜゑｿｽｿｽB
procedure TForm1.FormDestroy(Sender: TObject);
var
   i:integer;
begin
   for i:= 0 to ComboBox1.items.count-1 do
   begin
      dispose(PMyRec(ComboBox1.items.objects[i]));
   end;
end;

air 2006/02/28(ｿｽｿｽ) 00:56:00

ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽI
ｿｽ{ｿｽｿｽｿｽﾉ、ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾜで擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ有ｿｽｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ{ｿｽｿｽｿｽﾉ奇ｿｽｿｽﾓゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽ

Created by board of various Programming Library.