Re: adding items to a combo box

Posted by Jean Claude Servaye on May 11, 2001 at 19:05:41:

In Reply to: adding items to a combo box posted by p12114-andrew on May 10, 2001 at 02:12:07:

Place a combobox on your form and add the following code:

procedure TForm2.ComboBox1KeyPress(Sender: TObject; var Key: Char);
var
  N : Integer;
begin
  If Key = #13 then begin  // user press enter in the combobox
    N := Combobox1.Items.IndexOf(Combobox1.Text); // search if the Item already exist
    If N = -1 then Combobox1.Items.Add(Combobox1.Text);  // if not, add it
  end;
  Combobox1.Items.SaveToFile('Combo.Txt'); // and save the list in a file
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  // when your form is displayed, get the items from the file
  If FileExists('Combo.Txt') then 
    ComboBox1.Items.LoadFromFile('Combo.Txt');
end;