Auto completar

[seveN]

O codigo abaixo auto completa o que for digitado no ComboBox, agora estou tentando fazer com que o se o nome não estiver na lista uma mensagem seja exibida solicitando que o nome não existente seja cadastrado abrindo o form correspondente.

Begin

QREscrivao.Create(Nil);

QREscrivao.Sql.Add('Select Distinct Nome, Matricula, Funcao');

QREscrivao.Sql.Add('From Tabela');

QREscrivao.Sql.Add('Order By Nome');

QREscrivao.Open;

QREscrivao.First;

While Not QREscrivao.Eof Do

Begin

ComboBox1.Items.Add(QREscrivao.Fields[0].AsString);

QREscrivao.Next;

End;

End;

Grato...

[Jhonas]

exemplo:

Como ficaria o select

SELECT NOME

FROM Clientes

WHERE NOME LIKE :NOME

ORDER BY NOME

como ficaria o codigo no evento OnChange do Combobox

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   Query1.Active := FALSE;
   Query1.ParamS[0].AsString := TRIM(ComboBox1.Text)+'%';
   Query1.Active := TRUE;

   IF Query1.RecordCount <> 0 THEN
      ComboBox1.Items.Add(Query1.Fields[0].AsString)
   else
      if MessageDlg('Não existe o registro no arquivo... gostaria de cadastrá-lo ?'
         , mtConfirmation, [mbYes, mbNo], 0) = mrYes then
         begin
            ////  comandos
         end;

end;

OBS: Modifique o codigo para o seu uso

abraço