Einzelnen Beitrag anzeigen

o-sch

Registriert seit: 18. Okt 2006
Ort: Essen
11 Beiträge
 
Delphi XE2 Enterprise
 
#6

Re: TObjectList - Sort crash (D7)

  Alt 11. Mär 2008, 15:09
Zitat von dfried:
Das ist glaub ich schon klar, nur wenn der Sourcecode den du oben aufgelistet hast per Copy & Past aus deinem Delphi ist, dann ist der Fehler, dass du dort auf ein "pmyItem" verweist und nicht auf pmyItem1 oder pmyItem2!
Der Code wird nicht 1:1 benutzt, sondern ist stark vereinfacht. Das ist ein Fehler in der Fehlerbeschreibung

Delphi-Quellcode:
function MyListCompare(pmyItem1, pmyItem2: pointer): integer;
  begin
    Result := 0
    if TmyItem(pmyItem1).V1 > TmyItem(pmyItem2).V1 then Result := 1;
    if TmyItem(pmyItem1).V1 < TmyItem(pmyItem2).V1 then Result := -1;
  end;
  Mit Zitat antworten Zitat