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