Buscar en campo calculado

[ecfisa]

Hola Delphitest.

Creo recordar que trabajas con ADO y Access, te pongo entonces ejemplos basados en la tabla Employee de dbdemos:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Consulta
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Text:= 'SELECT FIRSTNAME + '' '' + LASTNAME AS FULLNAME, * FROM EMPLOYEE';
    Open;
  end;
  // configurar DBLookupComboBox
  with DBLookupComboBox1 do
  begin
    KeyField  := 'EMPNO';
    ListField := 'FULLNAME';
    ListSource:= DataSource1;
  end;
end;

Si quisieras realizar una búsqueda incremental desde el evento OnChange de un TEdit, sería similar:

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT FIRSTNAME+'' ''+LASTNAME AS FULLNAME, * FROM EMPLOYEE');
    SQL.Add('WHERE FIRSTNAME +'' ''+LASTNAME LIKE :PARAM');
    Parameters.ParamByName('PARAM').Value:= Edit1.Text + '%';
    Open;
  end;
end;

Saludos