TobjectList sort, valeur inaccessible
haldrix
Messages postés
4
Date d'inscription
mercredi 23 juillet 2003
Statut
Membre
Dernière intervention
3 avril 2006
-
3 avril 2006 à 12:03
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 - 3 avril 2006 à 20:04
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 - 3 avril 2006 à 20:04
2 réponses
haldrix
Messages postés
4
Date d'inscription
mercredi 23 juillet 2003
Statut
Membre
Dernière intervention
3 avril 2006
3 avril 2006 à 12:13
3 avril 2006 à 12:13
J'ai aussi essayé:
function TListFacture.CompareId(Item1, Item2: Pointer): Integer;
begin
if ((Item1 <> nil) AND (Item2 <> nil) ) then
result := CompareValue(Tfacture(Item1).IDBase, Tfacture(Item2).IDBase );
end;
Dans ce cas, en mode pas-a-pas, j'ai 'Item2=$1' et ca plante toujours (evidemment).
function TListFacture.CompareId(Item1, Item2: Pointer): Integer;
begin
if ((Item1 <> nil) AND (Item2 <> nil) ) then
result := CompareValue(Tfacture(Item1).IDBase, Tfacture(Item2).IDBase );
end;
Dans ce cas, en mode pas-a-pas, j'ai 'Item2=$1' et ca plante toujours (evidemment).
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
32
3 avril 2006 à 20:04
3 avril 2006 à 20:04
Tout d'abord, la méthode Sort attend une fonction en argument, pas une méthode :
Et TListSortCompare est défini ainsi :
La solution se résume donc à ceci :
May Delphi be with you !
<HR color =#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
procedure Sort(Compare: TListSortCompare);
Et TListSortCompare est défini ainsi :
TListSortCompare = function (Item1, Item2: Pointer): Integer;
La solution se résume donc à ceci :
function CompareId(Item1, Item2: Pointer): Integer;
begin
if Assigned(Item1) and Assigned(Item2) then
begin
if TFacture(Item1).IdBase < TFacture(Item2).IdBase then
Result : = -1
else
if TFacture(Item1).IdBase > TFacture(Item2).IdBase then
Result := 1
else
Result := 0;
end
else
Raise Exception.Create('Ni Item1 ni Item2 ne peuvent être nuls');
end;
procedure TListFacture.TrieParId;
begin
Sort(@CompareId);
end;
May Delphi be with you !
<HR color =#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
