TObjectList - Sort crash (D7)

[thkerkmann]

Hi,
also deine compare blick ich nicht:

Zitat:

Delphi-Quellcode:

function MyListCompare(pmyItem1, pmyItem2: pointer): integer;
  begin
    Result := 0
    if TmyItem(pmyItem).V1 > TmyItem(pmyItem).V2 then Result := 1;  // <<<< wo kommt denn pmyItem plötzlich her ???
    if TmyItem(pmyItem).V1 < TmyItem(pmyItem).V2 then Result := -1;
  end;

ich würde so schreiben

Delphi-Quellcode:

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