>>134-135
例えば、正の整数をEditから受け取りたいときに、

try
　n := StrToIntDef(Edit1.Text,0);
　if n <= 0 then raise Exception.Create('正の整数を記入してください。');
　その後の処理
except
　on E:Exception do ShowMessage(E.Message);
end;

みたいに、かなり気軽に例外を使ってる人って、もしかして少数派？
「処理を中断するような場合は例外を使う」というポリシーでソース
書いてるんで・・・