Delphi最新三层源码(1.0),对delphi有帮助

				unit IValueObjectListUnit;
				
				interface
				
				uses
				  Classes;
				
				type
				
				  IValueObjectList = interface(IUnknown)
				    ['{80AF05AA-0960-4FC2-91F8-BAA24731D156}']
				    procedure InitVOListObj(sVOName: String); 
				  end;
				
				implementation
				
				end.