delphi try except ÌáʾÎÊÌâ

ÎҵĴúÂ룺Delphi(Pascal) code:


try
tempJSONn := tempJS.Field['test1'] as TlkJSONlist;
except
tempJS := tempJS.Field['test1'] as TlkJSONobject;
end;




µ±´úÂëÖ´Ðе½tempJSONn := tempJS.Field['test1'] as TlkJSONlist;

ÀàÐÍת»»²»¶ÔµÄʱºò£¬ÔËÐÐ tempJS := tempJS.Field['test1'] as TlkJSONobject;

µ«ÊÇΪʲôÔËÐеÄʱºò ת»»²»¶ÔµÄʱºò£¬³ÌÐò»á±¨´íÄØ£¿

»¹ÓÐ throwÂð£¿

лл´ó¼ÒÁË

---

²éÁ˲飬ºÃÏñÓÃraise exception

Ôõô¸öÓ÷¨£¿

---

ÒýÓÃ

±¨´íÊÇÔÚµ÷ÊÔµÄʱºò³öµÄ°É

лл£¬delphi  ÐÂÊÖ¡£¡£


лл  ÊÔÁË  ÊÇÔÚµ÷ÊÔµÄʱºò ²ÅÓС«


ÄÇÔõôÔÚµ÷ÊÔµÄʱºò  Ò²²»Ìáʾ´íÎóÄØ£¿

ллÁË

---

Delphi(Pascal) code:
try
tempJSONn := tempJS.Field['test1'] as TlkJSONlist;
except
tempJS := tempJS.Field['test1'] as TlkJSONobject;
end;


TRY

EXCEPT
½Ø»ñµÄÊÇ tempJSONn := tempJS.Field['test1'] as TlkJSONlist; Õâ¾äµÄÒì³£

EXCEPT
 
END;Õâ¸öÀïÃæÔÙ³ö´í ¾ÍûÓÐÒì³£´