Class TmwSor (unit mwSor)

Inherits from

TObject

TmMergePart

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;



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;