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

Fix for conditional

This commit is contained in:
mysticbbs 2012-03-04 16:58:57 -05:00
parent 5b81e856b1
commit 0c42f9ff57
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
mdl/m_quicksort.pas
View File

@ -81,9 +81,11 @@ Begin
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;
If Data[Count]^.Name < Name Then Begin
Data[Count]^.Name := Name;
Data[Count]^.Ptr := Ptr;
Break;
End;
End;