...
type
TCompareFunc = function(A, B: record):integer;
function Compare(A, B: record): integer;
begin
// Itt megírod az összehasonlításhoz a kódot, és pl ha A>B akkor result := -1, ha egyenlő akkor 0, ha kisebb 1
end;
procedure Rendez(T: array, CF: TCompareFunc)
begin
//Itt meg tudod hívni a CF fgv-t, ettől függően rendezed a tömbödet
KissebbVagyNagyobb := CF(X,Y);
end;
var
func: TCompareFunc;
Lista: array;
begin
func := @Compare;
Rendez(Lista, func);
end.
Csak nagy vonalakban.