Fórum Como destruir um memo #373425

o certo seria assim

Marcos,
primeiro deixa eu corrigir uma grande gafe, rs Eu criei uma Procedure e não uma função hehehe.
Segundo, muito obrigado mesmo por sua ajuda, funciona beleza, mas eu quero destruilo depois de um Enter por exemplo, que é quando o usuario terá escolhido uma opção.

Pode me dar mais essa dica?

Muito obrigado .

vc precisa ter o objeto instanciado em alguma variavel ou ter o ponteiro dele guardado para dar um free depois.

posta a declaração deste metodo e se possivel um exemplo de como é que vc utiliza este Memo antes do ´enter´

pq assim.... se vc utiliza este memo antes do ´enter´ então vc tem acesso ao objeto, então é so dar um FreeAndNil depois;

Olha Marcos,
como ficou depois do que vc me passou.

procedure TfrmMenu.Buscador(form: TForm; ancora: TDBEdit; valor, tabela,
campo: String; cond: Integer);
var
dados:TMDOQuery;
begin
if cond = 1 then
begin
if not (valor = ´´) then
begin

dados := TMDOQuery.Create(dados);
dados.Database := DM.MDODB;
dados.Close;
dados.SQL.Clear;
dados.SQL.Add(´select ´+campo+´ from ´+tabela+´ where ´+campo+´ like ´+QuotedStr(valor+´¬´));
dados.Open;

lst := TMemo.Create(nil); //<- mude aqui p nil
try // <- comece o try apos o create
lst.Parent := ancora.Parent;
lst.Left := ancora.Left;
lst.Top := ancora.Top+22;
lst.Width := ancora.Width;

while not dados.Eof do
begin
lst.Lines.Add(dados.Fields[0].AsString);
dados.Next;
end;

finally // <- depois q fizer oq precisa com o lst fazer o finally
FreeAndNil (lst); // <- aqui ele libera o objeto
end;


end
else if cond = 0 then
begin
{
----> isso era uma tentativa de destruir o memo
}
//dados := nil;
dados.Free;

//lst := nil;
lst.Free();
end;
end;
end;

Então quando o cara começa a digitar aparece o memo filtrando conforme for digitando o resultado da pesquisa.
Aí vou fazer o código que com a seta pra baixo o foco mude para o memo criado então quando o usuario teclar enter vai selecionar o elemento do memo e destrui-lo.