(接上文)
代码：
现在把全文的代码列举如下，其中有一些上面没有给出的代码，但它们也很重要，列在一起方便大家浏览，请仔细查看下面的代码以获得需要的信息，当然本文也仅仅是做为一个简单的例子，举出了一些常见的问题和解决技巧，以及象这样的接口编程的一个可能应用。
接口：
ifoo = interface;
ifoomanager = interface
['{3a10dc39-4b14-4c61-b657-e445c55408b6}']
function createafoo:ifoo;
procedure delafoo(id:integer);
function getfoonum:integer;
function getfoobyid(id:integer):ifoo;
end;
