Combobox Eleman Yoksa Ekle

Bu içerikte Combobox Eleman Yoksa Ekle hakkında delphi programı yazacağız. Kodları kaynak göstererek kullanabilirsiniz.

procedure TForm1.Button1Click(Sender: TObject);

begin

if ComboBox2.ItemS.IndexOf(ComboBox1.Text)=-1 then

begin

ComboBox2.Items.Add(ComboBox1.text);

ComboBox1.Items.Delete(combobox1.ItemIndex);

end

else

ShowMessage('bu kayıt var');

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

ComboBox1.Items.add('ELİF');

ComboBox1.Items.add('Kırıkkale');

ComboBox1.Items.add('Anka');

ComboBox1.Items.add('Akademi');

ComboBox1.Items.add('71');

end;

end.