Code: Alles auswählen
unit ListUnit;
{$mode ObjFPC}{$H+}
interface
Uses Classes, Fgl, Math;
Type
TDoubleList = class(specialize TFPGList<Double>)
Private
public
Procedure DoSort;
end;
Function iCompareDoubleForSort(Const db1, db2 : Double) : Integer;
implementation
Function iCompareDoubleForSort(Const db1, db2 : Double) : Integer;
Begin
Result := CompareValue(db1, db2);
End;
Procedure TDoubleList.DoSort;
Begin
Sort(@iCompareDoubleForSort);
end;
end.
Viele Grüße
Christoph