All pastes #77672 Raw Edit

Stuff

public text v1 · immutable
·published 2006-07-03 08:30 UTC
rendered paste body
procedure TForm1.Button2Click(Sender: TObject);
var
  L: TList;
  i: integer;
begin
  L := TList.Create;
  L.Add(Pointer(1));
  L.Add(Pointer(12));
  L.Add(Pointer(11));
  L.Add(Pointer(3));
  L.Add(Pointer(2));
  L.Add(Pointer(15));
  L.Sort(@CompareText);
  L.Free;
end;

function CompareText(p1, p2: Pointer): Integer;
begin
  if (Integer(p1) <= Integer(p2)) then Result := -1 else Result := 1;
end;