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
Const
mdlMaxSortSize = 5000;
mdlMaxSortSize = 10000;
Type
TSortMethod = (qAscending, qDescending);
@ -23,7 +23,8 @@ Type
Constructor Create;
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 Clear;
End;
@ -54,7 +55,7 @@ Begin
Total := 0;
End;
Function TQuickSort.Add (Name: String; Ptr: LongInt) : Boolean;
Function TQuickSort.Add (Name: String; Ptr: Cardinal) : Boolean;
Begin
Result := False;
@ -72,6 +73,20 @@ Begin
Result := True;
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);
Var
Temp : PQuickSortRec;