Autocompletar en TEdit

ecfisa · #1 10-09-2013

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

santiago14 · #2 10-09-2013

Cita:

Empezado por 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

Gracias compañero, eso lo mejora mucho.
Saludos.

[nlsgarcia] · #3 11-09-2013

santiago14,

Cita:

Empezado por santiago14

...estoy buscando la forma de hacer el autocompletado...Si hay una solución mas simple, mejor...

Revisa este código basado en la solución sugerida en el Msg #4 y en el comportamiento de la función SHAutoComplete (Windows API):

Código Delphi [-]unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, StrUtils, ExtCtrls;

type
  TComboBox = class(StdCtrls.TComboBox)
  private
    VK : Boolean;
    AuxText : String;
    History : String;
    FStoredItems : TStringList;
    procedure FilterItems;
    procedure StoredItemsChange(Sender: TObject);
    procedure SetStoredItems(const Value: TStringList);
    procedure ComboExit(Sender: TObject);
    procedure ComboCloseUp(Sender: TObject);
    procedure ComboKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure CNCommand(var Message: TWMCommand); Message CN_COMMAND;
  protected
  public
    constructor Create(Owner: TComponent); override;
    destructor Destroy; override;
    property StoredItems : TStringList read FStoredItems write SetStoredItems;
  end;

type
  TForm1 = class(TForm)
    ComboBox1 : TComboBox;
    Button1 : TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TComboBox.Create(Owner: TComponent);
var
   FS : TFileStream;

begin

   inherited;

   AutoComplete := False;
   FStoredItems := TStringList.Create;
   FStoredItems.OnChange := StoredItemsChange;
   History := 'History.txt';
   Self.OnExit := ComboExit;
   Self.OnCloseUp := ComboCloseUp;
   Self.OnKeyDown := ComboKeyDown;
   Self.Sorted := True;
   Self.DropDownCount := 30;

   if not FileExists(History) then
   begin
      FS := TFileStream.Create(History, fmCreate);
      FS.Free;
   end;

   Self.StoredItems.LoadFromFile(History);

end;

destructor TComboBox.Destroy;
begin
   FStoredItems.Free;
   inherited;
end;

procedure TComboBox.CNCommand(var Message: TWMCommand);
begin

   inherited;

   if Message.NotifyCode = CBN_EDITUPDATE then
      FilterItems;

end;

procedure TComboBox.FilterItems;
var
   i : Integer;
   StartPos, EndPos : Integer;

begin

   SendMessage(Handle, CB_GETEDITSEL, WPARAM(@StartPos), LPARAM(@EndPos));

   AuxText := Text;

   if Text <> '' then
   begin

      Items.Clear;

      for i := 0 to FStoredItems.Count - 1 do
      begin
         if PosEx(LowerCase(Text), LowerCase(FStoredItems[i])) > 0 then
            Items.Add(FStoredItems[i]);
      end;

   end
   else
      Items.Assign(FStoredItems);

   SendMessage(Handle, CB_SHOWDROPDOWN, Integer(True), 0);

   Text := AuxText;

   SendMessage(Handle, CB_SETEDITSEL, 0, MakeLParam(StartPos, EndPos));

end;

procedure TComboBox.StoredItemsChange(Sender: TObject);
begin

   if Assigned(FStoredItems) then
      FilterItems;

end;

procedure TComboBox.SetStoredItems(const Value: TStringList);
begin
   if Assigned(FStoredItems) then
      FStoredItems.Assign(Value)
end;

procedure TComboBox.ComboExit(Sender: TObject);
begin

   if (Items.IndexOf(Text) = -1) and (Text <> EmptyStr) then
   begin
      FStoredItems.Add(Text);
      FStoredItems.SaveToFile(History);
   end;

end;

procedure TComboBox.ComboCloseUp(Sender: TObject);
begin

   If (AuxText <> EmptyStr) and (VK = False) then
   begin
      Text := AuxText;
   end;

   VK := False;

end;

procedure TComboBox.ComboKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if (Key = VK_UP) or (Key = VK_DOWN) then
      VK := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage(ComboBox1.Text);
end;

end.

El código anterior simula de forma básica la función SHAutoComplete en un componente TComboBox modificado, como se muestra en la siguiente imagen:

El ejemplo esta disponible en el link: http://terawiki.clubdelphi.com/Delph...e_ComboBox.rar

Espero sea útil

Nelson.

ecfisa · #4 11-09-2013

Buén código Nelson

Saludos

santiago14 · #5 12-09-2013

Cita:

Empezado por nlsgarcia

Espero sea útil

Nelson.

Realmente ha sido muy útil.

Una pregunta. Si quiero decidir yo mismo el nombre del archivo de texto en el cual voy a guardar la lista ¿Cómo hago?
Por ejemplo que quiera tener un archivo de texto para cada combo, y tengo dos combo's.

Saludos.

santiago14 · #6 12-09-2013

Cita:

Empezado por santiago14

Una pregunta. Si quiero decidir yo mismo el nombre del archivo de texto en el cual voy a guardar la lista ¿Cómo hago?
Por ejemplo que quiera tener un archivo de texto para cada combo, y tengo dos combo's.
Saludos.

Bueno, hice esto...

Código Delphi [-]TComboBox = class(StdCtrls.TComboBox)
  private
    FHistory: String;
...
  public
    property History : String read FHistory write SetHistory;

...

procedure TComboBox.SetHistory(const Value: String);
var
  FS : TFileStream;
begin
  FHistory := Value;
  if not FileExists(History) then
  begin
    FS := TFileStream.Create(FHistory, fmCreate);
    FS.Free;
  end;
  Self.StoredItems.LoadFromFile(FHistory);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.History:='Mi_historial.txt';
end;

Ahora puedo poner el nombre del .txt que yo quiera, y además, cada combo podría tener un archivo de texto particular.
Gracias.

santiago14 · #7 12-09-2013

Que va, faltaría dar una vuelta de tuerca mas para cuando no me envíen un nombre para mi archivo de texto...

[nlsgarcia] · #8 12-09-2013

santiago14,

Cita:

Empezado por santiago14

...Una pregunta. Si quiero decidir yo mismo el nombre del archivo de texto en el cual voy a guardar la lista ¿Cómo hago?...

Revisa este código:

Código Delphi [-]unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, StrUtils, ExtCtrls;

type
  TComboBox = class(StdCtrls.TComboBox)
  private
    CtrlLoad : Boolean;
    UnFlicker : Boolean;
    UpDown : Boolean;
    AuxText : String;
    FHistoryName : String;
    StoredItems : TStringList;
    procedure FilterItems;
    procedure StoredItemsChange(Sender: TObject);
    procedure LoadHistory;
    procedure ComboExit(Sender: TObject);
    procedure ComboCloseUp(Sender: TObject);
    procedure ComboKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure CNCommand(var Message: TWMCommand); Message CN_COMMAND;
  protected
  public
    constructor Create(Owner: TComponent); override;
    destructor Destroy; override;
    property History : String read FHistoryName write FHistoryName;
  end;

type
  TForm1 = class(TForm)
    ComboBox1 : TComboBox;
    Button1 : TButton;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TComboBox.Create(Owner: TComponent);
begin

   inherited;

   AutoComplete := False;
   StoredItems := TStringList.Create;
   StoredItems.OnChange := StoredItemsChange;
   Self.OnExit := ComboExit;
   Self.OnCloseUp := ComboCloseUp;
   Self.OnKeyDown := ComboKeyDown;
   Self.Sorted := True;
   Self.DropDownCount := 30;
   UnFlicker := False;
   CtrlLoad := False;

end;

destructor TComboBox.Destroy;
begin
   StoredItems.Free;
   inherited;
end;

procedure TComboBox.LoadHistory;
begin

   CtrlLoad := True;

   if FHistoryName = EmptyStr then
      FHistoryName := 'History.txt';

   if FileExists(FHistoryName) then
   begin
      Self.StoredItems.LoadFromFile(FHistoryName);
      SendMessage(Handle, CB_SHOWDROPDOWN, Integer(False), 0);
   end;

end;

procedure TComboBox.CNCommand(var Message: TWMCommand);
begin

   inherited;

   if Message.NotifyCode = CBN_EDITUPDATE then
      FilterItems;

end;

procedure TComboBox.FilterItems;
var
   i : Integer;
   StartPos, EndPos : Integer;

begin

   SendMessage(Handle, CB_GETEDITSEL, WPARAM(@StartPos), LPARAM(@EndPos));

   AuxText := Text;

   if Text <> EmptyStr then
   begin

      Items.Clear;

      for i := 0 to StoredItems.Count - 1 do
      begin
         if PosEx(LowerCase(Text), LowerCase(StoredItems[i])) > 0 then
            Items.Add(StoredItems[i]);
      end;

   end
   else
      Items.Assign(StoredItems);

   if UnFlicker then
      SendMessage(Handle, CB_SHOWDROPDOWN, Integer(True), 0);

   Text := AuxText;

   SendMessage(Handle, CB_SETEDITSEL, 0, MakeLParam(StartPos, EndPos));

   UnFlicker := True;

end;

procedure TComboBox.StoredItemsChange(Sender: TObject);
begin

   if Assigned(StoredItems) then
      FilterItems;

end;

procedure TComboBox.ComboExit(Sender: TObject);
begin

   if (Items.IndexOf(Text) = -1) and (Text <> EmptyStr) and (FHistoryName <> EmptyStr) and CtrlLoad then
   begin
      StoredItems.Add(Text);
      StoredItems.SaveToFile(FHistoryName);
   end;

end;

procedure TComboBox.ComboCloseUp(Sender: TObject);
begin

   If (AuxText <> EmptyStr) and (UpDown = False) then
   begin
      Text := AuxText;
   end;

   UpDown := False;

end;

procedure TComboBox.ComboKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if (Key = VK_UP) or (Key = VK_DOWN) then
      UpDown := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

   if ComboBox1.Text <> EmptyStr then
      ShowMessage(ComboBox1.Text);

   if ComboBox2.Text <> EmptyStr then
      ShowMessage(ComboBox2.Text);

   if ComboBox3.Text <> EmptyStr then
      ShowMessage(ComboBox3.Text);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

   ComboBox1.History := 'History_1.txt';
   ComboBox1.LoadHistory;

   ComboBox2.History := 'History_2.txt';
   ComboBox2.LoadHistory;

   ComboBox3.History := 'History_3.txt';
   ComboBox3.LoadHistory;

end;

end.

El código anterior es la Versión 2 del código sugerido en el Msg #10 que permite: Simular de forma básica la función SHAutoComplete en un componente TComboBox modificado.

Mejoras realizadas:

1- Se incluyo la propiedad History que permite asignar un archivo Histórico a un ComboBox.

2- Se incluyo el método LoadHistory que permite cargar el archivo Histórico asociado al ComboBox.

3- Se elimino el efecto de flickering al cargar el ComboBox.

4- Se optimizo el código a nivel general.

Notas:

1- Si se omite el método LoadHistory, el ComboBox Modificado funcionara como un ComboBox estándar.

2- Si se omite la propiedad History, el ComboBox Modificado funcionara con el archivo Histórico por Defecto 'History.txt'.

3- Se debe asignar primero la propiedad History y luego llamar el método LoadHistory, para un correcto funcionamiento del Histórico.

El ejemplo esta disponible en el link: http://terawiki.clubdelphi.com/Delph...omboBox+V2.rar

Espero sea útil

Nelson.

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Autocompletar	Raistlin	Varios	1	29-01-2007 12:05:35
Autocompletar un TEdit (solución, no consulta)	Walterdf	Varios	4	05-10-2005 20:23:35
Pasar el valor de un TEdit dentro de un StringGrid a otro TEdit que está fuera	atirado	Varios	4	11-09-2004 19:13:48
Ayuda. Autocompletar TEdit	Fonso_esp	Varios	2	23-04-2004 15:31:05
Edit con autocompletar	Rox77	Varios	1	21-05-2003 10:36:05