讨论代码风格(50分)

什么样的代码是易读，高效，安全的。
能举出例子来吗.
如function(aList:List);
begin
Assert(aList<>nil, 'Supplied List is null');
end;
对于每个子函数为保证参数符合要求，都调用assert,这样做是可行的吗？
有没有别的办法

能举出错误的例子也行

就是病句什么的

这会严重影响程序的效率，assert是在万不得于的时候才会考虑去用它，它一般只用来调试程序之用。
楼主写的这段代码：
function(aList:List);
begin
Assert(aList<>nil, 'Supplied List is null');
end;
不太行啊，如果参数是其它类型，那么使用这段代码是没用的，它不会报错，自己在写程序时如果参数不对，编译都会自动报错，通不过编译，我不知道楼主，为什么要这样处理？
如果是让用户输入参数值，然后传递给所要调用的函数的话，要对用户输入的内容做判断，再传递给所要调用的函数，如果用户输入错误，直接弹出错误警告，不调所要调用的函数，直到用户输入的内容符合要求。
针对不同类型的参数，要写不同的错误处理，不可能使用一个函数控制全部的。
比如，要通过Edit1传递一个值给函subl:
function subl(x:Integer):Integer;
begin
result:=x*10;
end;
调用代码：
if Edit1.Text<>'' then
begin
Edit2.Text:=subl(Str2Int(Trim(Edit1.Text)));
end;
一般写程序时不会对参数做过多的判断的，除非是要求特别高的程序才会去做详细的错误处理，在调用写的程序时做简单的处理就可以。
本人是菜鸟，说得不好，不要见外。