1. var 2. path:string 3. begin 4. path := ''; 5. try 6. mkdir(path); 7. except 8. showmessage('cannnot create this path!'); 9. end; 10. end; 11. //你说上面的代码可以捕捉到mkdir的错误吗?答案是可以。下面的也可以,但需要加上{$I-},上面默认的其实是{$I+}: 12. var 13. path:string 14. begin 15. {$I-}// 16. path := ''; 17. mkdir(path); 18. if IOResult <> 0 then 19. showmessage('cannnot create this path!') 20. else 21. showmessage('created this path!'); 22. end;