Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

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
[B]  //Memory.Sort(@CompareString);[/B]
  end
  else if m_SortTyp=Typ_Integer then
  begin
[B]  //FMemory.Sort(@CompareInteger);[/B]
  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