Inoffizielles deutsches Xbase-Forum

Hallo,

gibt es eine Möglichkeit, wie ich innerhalb eines Codeblocks eine Exception behandeln kann?

cbTest := {|a|b := 20, b / a} 
eval(cbTest, 0)

Ich dachte an irgendwas in dieser Art:

Code: Alles auswählen

cbTest := {|a|b := 20, BEGIN SEQUENCE, b / a, ENDSEQUENCE} 
eval(cbTest, 0)

Das geht nur wenn du eine Funktion im Codeblock aufrufst:

Code: Alles auswählen

cbTest := {|a| MyFunction(a,b)} 

STATIC FUNC myFunction(a,b)
local bErr	:= Errorblock({|o| ... })	// hier kannst du noch deinne eigenen Errorblock definieren, wenn nötig
local xRet
BEGIN SEQUENCE
	xRet	:= a / b
RECOVER
END 
Errorblock(bErr)
RETRUN xRet

Inoffizielles deutsches Xbase-Forum

Exception Handling in Codeblocks

Exception Handling in Codeblocks

Re: Exception Handling in Codeblocks