掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ComboBoxの一つ一つの行に値を持たせるには？ (ID:20252)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TStringListも同じですが、Objectを使います。 type //オリジナルのレコード型 TMyrec=Record DispStr : string; DialogStr : String; end; //レコード型のポインタの型を設定しておく 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)); とコンボボックスに格納します。 procedure TForm1.ComboBox1Click(Sender: TObject); begin if (ComboBox1.ItemIndex >= 0) then ShowMessage(PMyRec(ComboBox1.Items.Objects[ComboBox1.ItemIndex])^.DialogStr ); end; //プログラム終了時に必ず全てdisposeします。 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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.