Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - exception erzeugen
BlackAngel - Mi 10.12.03 10:28
Titel: exception erzeugen
kann mir jemand ein beispiel nennen wie ich mein eigenes exception erzeuge???
Habe bis jetzt noch kein beispiel gefungen!
Maggi - Mi 10.12.03 10:38
Hi,
verstehe nicht ganz was du willst einen Fehler bekommst du doch wohl alleine hin oder...!?! :wink:
Wenn du eine Fehlermeldung meinst die das aussagt was du willst bekommst du z.B. mit einer Try except Schachtelung:
Beispiel:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| try
table1.Edit;
table1.Feld01 := '143513451#;
table1.Post;
except
MessageDlg('Fehler!!!!!', mtWarning, [mbOK], 0);
end; |
...hoffe das hilfe dir eibn wenig! :lol:
Gruß
Maggi
Moderiert von 
Tino: Code- durch Delphi-Tags ersetzt.
Udontknow - Mi 10.12.03 10:46
Hallo!
Kurz und knapp:
Delphi-Quelltext
1:
| raise Exception.Create('Benutzerdefinierte Exception aufgetreten!'); |
Cu,
Udontknow
Christian S. - Mi 10.12.03 10:48
Hallo!
Mit diesem Quelltext hast Du eine eigene Exception-Klasse (kannst sie auch von einem anderen Exception-Typ ableiten), die rausgeworfen und gefangen wird. Die Prozedur brauchst Du natürlich eigentlich nicht, war nur zur Demonstration.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
| type
EmyException = class(Exception);
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure raiseMyException;
begin
raise EmyException.Create('falscher Fehler');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
try
raiseMyException;
except
on EmyException do ShowMessage('Ein falscher Fehler ist aufgetreten');
else
ShowMessage('Irgendwas anderes ging schief');
end;
end; |
MfG
Peter
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!