não finaliza

[dirleimoreira]

Bom dia, estou com um duvida cruel... todos o programas q eu estou fazendo não esta finalizando... mesmo depois que eles executam as tarefas é eu fecho eles no form eles contuniam executando e so consigo finalizalos pelo pelo gerenciador de tarefas...

tem algum comando para finalizar o programa??

[__WIGLAN__]

Destrua todos os objetos que voce cria via codigo e para fechar o programa de o comando:

application.Terminate;

thé +

------------------------------------------------------

Reverse_Text 2.2. Download Inversor de Link:

http://extremeprogramming.wordpress.com/20...xt-2-0-solucao/

------------------------------------------------------

[dirleimoreira]

obrigado vou testar....

não deu certo... mas tb não sei se fiz corretamente...segue abaixo:

procedure TForm1.Button1Click(Sender: TObject);
  var L:TStringList;
  begin
  L := TStringList.Create;
  ADOConnection1.GetTableNames(L);

//pega a posição do tbteste(começa no 0)
    if L.IndexOf('0MENU') >= 0 then
      begin
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Text := ( 'DROP TABLE "0MENU";');
      ADOQuery1.ExecSQL;
      end;

      if L.IndexOf('1MENU') >= 0 then
      begin
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Text := ( 'DROP TABLE "1MENU"');
      ADOQuery1.ExecSQL;
      end;

      if L.IndexOf('MENU') >= 0 then
      begin
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Text := ( 'DROP TABLE MENU');
      ADOQuery1.ExecSQL;
      L.free;
      Showmessage ('tabela menu excluida');
      end; 

  end;
application.Terminate;
end.

não sei onde errei...

[dirleimoreira]

já conseguir corrigir obrigado