[JEDI.NET-commits] main/run Jedi.IO.FileOfRec.pas,1.3,1.4

[Marcel B. <jed...@us...>]

Update of /cvsroot/jedidotnet/main/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26728/main/run

Modified Files:
	Jedi.IO.FileOfRec.pas 
Log Message:
* Renamed EFileOfRecordError to StreamOfValueTypeException
* Renamed FileOfRecord to StreamOfValueTypeBase.
* Added StreamOfValueType and FileOfValueType derivatives.
* Added StreamOfRecord and FileOfRecord aliases (only usable in Delphi).
* Moved error message constants to strict private (need to be moved to resources, along with all other messages still used inside various units).
* Fixed a bug in one of the Read<type> methods (didn't actually read anything form the stream)
* SizeOf methods are now CLS compliant
* marked Read(var Obj) with CLSCompliant(False) attribute
* some style cleaning (probably missed a few things)

Index: Jedi.IO.FileOfRec.pas
===================================================================
RCS file: /cvsroot/jedidotnet/main/run/Jedi.IO.FileOfRec.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Jedi.IO.FileOfRec.pas	22 Jan 2005 15:28:45 -0000	1.3
--- Jedi.IO.FileOfRec.pas	13 Mar 2005 11:52:20 -0000	1.4
***************
*** 34,545 ****
  
  type
!   {$REGION 'StoredExtended = record'}
!   /// <summary>
!   /// StoredExtended is a binary compatible type for the Delphi Win32 Extended
!   /// type. It is only for storage usage. So use it only in records that should
!   /// be written to disk.
!   /// </summary>
! 
    [JediSourceInfo('$Header$')]
[...1536 lines suppressed...]
!   inherited Create(&type, FileStream.Create(filename, FileMode.OpenOrCreate), True, 0);
  end;
  
! constructor FileOfValueType.Create(&type: &Type; filename: string; autoClose: Boolean);
  begin
!   inherited Create(&type, FileStream.Create(filename, FileMode.OpenOrCreate), autoClose, 0);
  end;
  
! constructor FileOfValueType.Create(&type: &Type; filename: string; startPosition: Int64);
  begin
!   inherited Create(&type, FileStream.Create(filename, FileMode.OpenOrCreate), True, startPosition)
! end;
! 
! constructor FileOfValueType.Create(&type: &Type; filename: string; autoClose: Boolean; startPosition: Int64);
! begin
!   inherited Create(&type, FileStream.Create(filename, FileMode.OpenOrCreate), autoClose, startPosition);
  end;
  {$ENDREGION}
  
  end.