Ŷû (À±¼ºÅÂ)
|
|
Àú´Â ¿¹Àü¿¡ ÀÌ·¸°Ô Çß½À´Ï´Ù.
¸¸ÀÏ DB¸¦ ÀÌ¿ëÇÑ´Ù¸é ComboBox2¸¦ DBLookupCombobox¸¦ »ç¿ëÇؼ ÇÏ¸é µË´Ï´Ù.
-------------------------------------------------
procedure TForm1.ComboBox1Change(Sender: TObject);
Var Soccer :String; Baseball :String;
begin
Combobox2.Items.Clear ;
Soccer := 'À̵¿±¹,Ȳ¼±È«,¾ÈÁ¤È¯,±è³²ÀÏ';
Baseball := '¹ÚÂùÈ£,±èº´Çö,¼ÀçÀÀ,ÃÖÈñ¼·';
Case ComboBox1.ItemIndex Of
0: Begin
Combobox2.Items.DelimitedText := Soccer ;
End;
1: Begin
Combobox2.Items.DelimitedText := Baseball ;
End;
End;
end; 2017-12-07 ¿ÀÈÄ 2:36:04
|
|