Compere

Alaitoc

Erfahrenes Mitglied
Code:
function TListINI.CompareInteger(Item1, Item2: Pointer): Integer;
begin
  result:=0;
  If m_SortDirection=UP then
  begin
    Result := CompareValue(TStats(Item1).Zeit, TStats(Item2).zeit);
  end
  else if m_SortDirection=DOWN then
  begin
    Result := -CompareValue(TStats(Item1).Zeit, TStats(Item2).zeit);
  end;
end;

function TListINI.CompareString(Item1, Item2: Pointer): Integer;
begin
  result:=0;
  If m_SortDirection=UP then
  begin
    Result := CompareText(TStats(Item1).Name, TStats(Item2).Name);
  end
  else if m_SortDirection=DOWN then
  begin
    Result := -CompareText(TStats(Item1).Name, TStats(Item2).Name);
  end;
end;

procedure TListINI.Sort;
begin
  if m_SortTyp=Typ_String then
  begin
  //Memory.Sort(@CompareString);
  end
  else if m_SortTyp=Typ_Integer then
  begin
  //FMemory.Sort(@CompareInteger);
  end;
end;

Tach zusammen, das dort oben ist mein Code...und ich frage mich woran es liegen könnte das es nicht mehr funktioniert...sobald ich die Funktionen in die Klasse packe...

MfG Alaitoc
 
Zurück