TComboBox.Items.Objects를 활용한 데이터 연동

TComboBox.Items.Objects를 활용한 데이터 연동

 

 

TComboBox에 표시되는 항목에 추가 정보를 함께 
저장하고 싶을 때 Items.Objects를 활용하면 유용합니다. 
각 항목에 객체 또는 포인터를 연결해 비즈니스 로직과 연동할 수 있습니다.

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.AddObject('사과', TObject(PtrInt(100)));
  ComboBox1.Items.AddObject('바나나', TObject(PtrInt(200)));
  ComboBox1.Items.AddObject('오렌지', TObject(PtrInt(300)));
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  Price: Integer;
begin
  Price := PtrInt(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
  ShowMessage(Format('선택한 과일의 가격은 %d원입니다.', [Price]));
end;


●AddObject로 문자열과 데이터를 함께 추가 가능
●TObject로 캐스팅한 후 PtrInt로 변환하여 숫자 등 실제 값으로 사용
●객체를 연결하면 선택 시 관련 정보를 쉽게 가져올 수 있음