Fórum Abort..Erro ao usar a procedure Abort!!! #256179

27/10/2004

0

pessoal estou tentando usar a procedure Abort soh q esta dando o seguinte erro justamente na linha do abort!!! alguem sabe oq eh isso?


Erro: Abort..Statemente expected but expression of type ´integer found´

try
self.Database1.Open ;
self.Memo1.Lines[1] := ´Conectado com sucesso.´;

except
on e:Exception do
begin
Self.Memo1.Lines[1] := ´Erro ao tentar conectar.´;
Self.Database1.Close;
Abort;
end;
end;


Hviana

Hviana

Responder

Posts

27/10/2004

Raczy

O bloco de código que você mostrou já está protegido por Try e Except por isso você não precisa mais chamar o Abort.


Responder

Gostei + 0

27/10/2004

Hviana

O bloco de código que você mostrou já está protegido por Try e Except por isso você não precisa mais chamar o Abort.


caro amigo eu preciso usar o [b:65bef72f13]Abort [/b:65bef72f13]detro do Try


Responder

Gostei + 0

27/10/2004

Gandalf.nho

Pq você precisa usar o Abort dentro do Try... Except...?


Responder

Gostei + 0

28/10/2004

Adilsond

Este erro é gerado pois a procedure Abort existe na unit SysUtils e DB ou DBIProcs, dependendo da versão do Delphi( senão me engano). Para corrigir o erro basta inverter a ordem destas units na uses ou colocar explicito de qual unit voce se refere.


SysUtils.Abort;


Responder

Gostei + 0

28/10/2004

Godzilla_xf

[b:4b65a45b60]Olá declare na clausula Uses, antes de qualquer uma a clausula System e depois as outras e veja se resolve o problema.[/b:4b65a45b60]


Responder

Gostei + 0

31/10/2004

Hviana

[b:045c206757]Olá declare na clausula Uses, antes de qualquer uma a clausula System e depois as outras e veja se resolve o problema.[/b:045c206757]


valew pela dica cara!!!!


Responder

Gostei + 0

02/11/2004

Alysson

talves seja útil:

** Voce sabia, que quando usa a procedure ABORT, o Abort gera 1 erro, digamos que invisível... Apenas para parar o processo.....

tente pro c v:

aki pelo menos funcionou:

Try
abort
except on e:exception do ShowMEssage(e.message); end;


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar