Código Delphi [-] procedure TForm1.ComboBox1Exit(Sender: TObject); begin with ComboBox1 do begin if Items.IndexOf(Text) = - 1 then begin Items.Add(ComboBox1.Text); Items.SaveToFile(HISTORIAL); end; end; end;
procedure TForm1.ComboBox1Exit(Sender: TObject); begin with ComboBox1 do begin if Items.IndexOf(Text) = - 1 then begin Items.Add(ComboBox1.Text); Items.SaveToFile(HISTORIAL); end; end; end;