Criar exceção no Delphi

[Diron Donadel]

olá pessoal boa tarde, gostaria de saber como criar uma exceção no delphi, não é tratar, é criar uma mesmo alguem pode me ajudar ?

[Fazzioni]

Como assim criar uma execão? poderia dar um exemplo?

[LNW]

Donadel,

olá pessoal boa tarde, gostaria de saber como criar uma exceção no delphi, não é tratar, é criar uma mesmo alguem pode me ajudar ?

Se é o que estou imaginando:

raise Exception.Create('Minha exceção');

Já deve estar incluída, mas certifique-se da unit SysUtils.

[]'s

LNW

[Diron Donadel]

Donadel,

Se é o que estou imaginando:

raise Exception.Create('Minha exceção');

Já deve estar incluída, mas certifique-se da unit SysUtils.

[]'s

LNW

exatamente isso que eu queria sim valeu cara [resolvido]

Donadel,

Se é o que estou imaginando:

raise Exception.Create('Minha exceção');

Já deve estar incluída, mas certifique-se da unit SysUtils.

[]'s

LNW

só que sem aparecer nd na tela ;x tem como ?

[Fazzioni]

Você pode usar um try e except, exemplo

Try
raise Exception.Create('Minha exceção');
Except
ShowMessage('Teste');
end;

[LNW]

Donadel,

exatamente isso que eu queria sim valeu cara [resolvido]

só que sem aparecer nd na tela ;x tem como ?

Use o procedimento Abort. Ex:

begin
if Edit1.Text = '' then
  Abort;

end;

[]'s

LNW

[Diron Donadel]

Donadel,

Use o procedimento Abort. Ex:

begin
if Edit1.Text = '' then
  Abort;

end;

[]'s

LNW

isso mesmo, depois eu vi ali que funcionava com o abort valeu flws [resolvido mesmo]

[Visitante]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.