eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Conditional function

This commit is contained in:
mysticbbs 2012-03-03 22:08:07 -05:00
parent 1318c9d100
commit b8acc073c1
1 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
mdl/m_quicksort.pas
View File

@ -5,7 +5,7 @@ Unit m_QuickSort;
Interface Interface
Const Const
mdlMaxSortSize = 5000; mdlMaxSortSize = 10000;
Type Type
TSortMethod = (qAscending, qDescending); TSortMethod = (qAscending, qDescending);
@ -23,7 +23,8 @@ Type
Constructor Create; Constructor Create;
Destructor Destroy; Override; Destructor Destroy; Override;
Function Add (Name: String; Ptr: LongInt) : Boolean; Function Add (Name: String; Ptr: Cardinal) : Boolean;
Procedure Conditional (Name: String; Ptr: Cardinal; ListMin: Word);
Procedure Sort (Left, Right: Word; Mode: TSortMethod); Procedure Sort (Left, Right: Word; Mode: TSortMethod);
Procedure Clear; Procedure Clear;
End; End;
@ -54,7 +55,7 @@ Begin
Total := 0; Total := 0;
End; End;
Function TQuickSort.Add (Name: String; Ptr: LongInt) : Boolean; Function TQuickSort.Add (Name: String; Ptr: Cardinal) : Boolean;
Begin Begin
Result := False; Result := False;
@ -72,6 +73,20 @@ Begin
Result := True; Result := True;
End; End;
Procedure TQuickSort.Conditional (Name: String; Ptr: Cardinal; ListMin: Word);
Var
Count : Word;
Begin
If Total < ListMin Then
Self.Add(Name, Ptr)
Else
For Count := Total DownTo 1 Do
If Data[Count].Name < Name Then Begin
Data[Count].Name := Name;
Data[Count].Ptr := Ptr;
End;
End;
Procedure TQuickSort.Sort (Left, Right: Word; Mode: TSortMethod); Procedure TQuickSort.Sort (Left, Right: Word; Mode: TSortMethod);
Var Var
Temp : PQuickSortRec; Temp : PQuickSortRec;