Hola.
Mirando el código anterior, que hice al vuelo y sin mucha prueba
, veo que se le puede hacer una mejora significativa:
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;
De este modo se evita el guardado de ítems duplicados y por consiguiente el crecimiento innecesario del archivo de texto.
Saludos