단단이아빠의 세상

본문

퍼온곳 : 한국델파이동호회 델마당

URL :  http://www.delmadang.com/community/bbs_view.asp?bbsNo=3&bbsCat=0&st=S&keyword=%uCF64%uBCF4%uBC15%uC2A4&indx=197440&keyword1=콤보박스&keyword2=&page=1

중복이라면 댓글 달아주세요 삭제할께요..

1. Integer형 넣기

with Query do
begin
First;
while not(Eof) do
begin
Combobox1.Items.AddObject(FieldByName('상품명').AsString,
TObject(FieldByName('상품id').AsInteger));
Next;
end;
end;


빼쓰기

GoodID := LongInt(Combobox1.Items.Objects[Combobox1.ItemIndex]);


2. String형 넣기

with Query do
begin
First;
while not(Eof) do
begin
Combobox1.Items.AddObject(FieldByName('상품명').AsString,
TObject(LongInt(NewStr(FieldByName('상품id').AsString))));
Next;
end;
end;


빼쓰기

GoodID := PString(Combobox1.Items.Objects[combobox1.ItemIndex])^;


3. 잊지말고 메모리 해제합시다.

OnDestroy 이벤트에 코딩해줍니다.

for i := 0 to combobox1.Items.Count-1 do
DisposeStr(PString(combobox1.Items.Objects[i]));