Autocompletar en TEdit

[ecfisa]

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