Email服务器

开发平台：

Delphi

TestedUnitStream.pas：源码内容

							unit TestedUnitStream;
{
 $Source: /cvsroot/dunit/dunit/Contrib/DUnitWizard/Source/DelphiExperts/DUnitProject/dunit/TestedUnitStream.pas,v $
 $Revision: 1.2 $
 $Date: 2004/05/03 15:07:16 $
 Last amended by $Author: pvspain $
 $State: Exp $
 TestedUnitStream:
 Copyright (c) 2003 by The Excellent Programming Company Pty Ltd
 (Australia) (ABN 27 005 394 918). All rights reserved.
 Contact Paul Spain via email: paul@xpro.com.au
 This unit is free software; you can redistribute it and/or
 modify it under the terms of the GNU Lesser General Public
 License as published by the Free Software Foundation; either
 version 2.1 of the License, or (at your option) any later version.
 This unit is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 Lesser General Public License for more details.
 You should have received a copy of the GNU Lesser General Public
 License along with this unit; if not, the license can be viewed at:
 http://www.gnu.org/copyleft/lesser.html
 or write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
 Boston, MA  02111-1307  USA
}
interface
uses
  Classes;      // TStream
function CreateTestedUnitStream: TStream;
implementation
uses
  SysUtils;     // fmOpenRead
const CVSID: string = '$Header: /cvsroot/dunit/dunit/Contrib/DUnitWizard/Source/DelphiExperts/DUnitProject/dunit/TestedUnitStream.pas,v 1.2 2004/05/03 15:07:16 pvspain Exp $';
  
var
  AStream: TStream;
function CreateTestedUnitStream: TStream;
begin
  if AStream = nil then
    AStream := TFileStream.Create('ExamplesTestedUnitParserTest_1.pas',
      fmOpenRead);
  AStream.Position := 0;
  Result := AStream;  
end;
initialization
finalization
  AStream.Free;
  
end.

						