Exception manuell auslösen

WeBsPaCe · Verfasst: Sa 09.04.05 15:13

Moin...

Titel klingt vllt. n bissele verrückt, aber macht eigentlich Sinn. :mrgreen:

Ich habe folgenden Code-Block:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

try
//blabla
except
//blabla
end;

Jetzt würde ich gerne mit einem Befehl im try-Teil eine Exception auslösen, so dass ich in den except-Teil reinrutsche...

Danke schonmal...

Ehemaliges Mitglied Erhaltene Danke: 1

Hi,

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

try
  raise Exception.Create('Ein schwerer Ausnahmezustand-Fehler!!')
except
  on e: showmessage(e.Message); //<-- bin mir hier nicht so sicher ob es "e.Message" war
end;

Moderiert von AXMD: Code- durch Delphi-Tags ersetzt.

WeBsPaCe · Verfasst: Sa 09.04.05 15:40

Danke, danke!!

Ist auch wurscht... Ich will einfach nur in except rein...

Danke!

BenBE · Verfasst: Sa 09.04.05 15:44

Nicht ganz: On E: Exception do Showmessage({...}.);

Begin-End-Block nach Do möglich.

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

WeBsPaCe · Verfasst: Sa 09.04.05 15:50

Super. Dann weiß ich das jetzt auch, falls ich's irgendwann brauch...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme