<p dir="ltr">Thanks and sorry for this stupid mistake.</p>
<div class="gmail_quote">Il 08/ott/2015 16:47, "Michael Van Canneyt" <<a href="mailto:michael@freepascal.org">michael@freepascal.org</a>> ha scritto:<br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><br>
<br>
On Thu, 8 Oct 2015, Andrea Mauri wrote:<br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Dear all,<br>
<br>
I am trying to sort a simple TIntegerList defined as:<br>
<br>
TIntegerList = specialize TFPGList<Integer>;<br>
<br>
In order to sort I introduced a compare function as:<br>
<br>
function CompareInt(const Item1,<br>
 Item2: Integer): Integer;<br>
begin<br>
 if Item1 < Item2 then<br>
   Result:= -1<br>
 else if Item2 > Item1 then<br>
</blockquote>
<br>
This is wrong. It is in fact the same condition as your first if.<br>
it should be<br>
  if Item1>Item2 then<br>
<br>
Michael.<br>
<br>
--<br>
_______________________________________________<br>
Lazarus mailing list<br>
<a href="mailto:Lazarus@lists.lazarus.freepascal.org" target="_blank">Lazarus@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus" rel="noreferrer" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus</a><br>
</blockquote></div>