| Class TmwSor (unit mwSor) |
TObject
TmMergePart
| Constructors |
constructor Create(RecLen: Integer);| Functions |
destructor Destroy;
procedure Start(InFile, OutFile: String; Compare: TmSorCompare);
procedure CalculateBuffers;
procedure InitMerge;
procedure LooserSort;
procedure Merge;| Properties |
| Events |
| Variables |
FParts : TmList;
FRecordLen : Integer;
MergeStream : TFileStream;
Reader : TmSorIo;
ReadStream : TFileStream;
SorFileName : String;
SorList : TmList;
TempFileName : String;
Writer : TmSorIo;
WriteStream : TFileStream;| Constructors |
constructor Create(RecLen: Integer);Read
| Functions |
destructor Destroy;Create
procedure Start(InFile, OutFile: String; Compare: TmSorCompare);CalculateBuffers
procedure CalculateBuffers;Merge
procedure InitMerge;Destroy
procedure LooserSort;InitMerge } { Similar to the Tree of Looser, but not as effective
procedure Merge;LooserSort } {Quick and dirty multi merge routine
| Properties |
| Events |
| Variables |
FParts : TmList;
FRecordLen : Integer;
MergeStream : TFileStream;
Reader : TmSorIo;
ReadStream : TFileStream;
SorFileName : String;
SorList : TmList;
TempFileName : String;
Writer : TmSorIo;
WriteStream : TFileStream;