Pointer-Problem

[stahli]

Hi,

ich nutze einige Objekte zur Datenverwaltung und lasse die in ggf. Listen sortieren.

Gestern bekam ich ein Problem, das ich mir nicht erklären kann. Eine Sortierfunktion knallt mir gelegentlich um die Ohren.

Nach einiger Suche fand ich heraus, dass die Pointer i.d.R. so um die $0800.0000 liegen. Gelegentlich ist dann einer über $1000.0000 dabei, was zu einer Zugriffsverletzung führt.

Also habe ich vor der Sortierung die Liste untersucht. Da ist aber noch alles i.O.!?

Natürlich kann ich nochmal alles neu aufbauen und z.B. eine generische Liste nutzen, aber irgendwie muss sich das Problem doch finden lassen.

Hat da jemand eine Idee?

Delphi-Quellcode:

function ListSortCompetitors(Item1, Item2: Pointer): Integer;
var
  C1, C2: TodCompetitor;
begin
  if Integer(Item1) >= $10000000 then
  begin
    Exit(0); // Zugriffsfehler vermeiden
  end;
  if Integer(Item2) >= $10000000 then
  begin
    Exit(0); // Zugriffsfehler vermeiden
  end;
  if TComponent(Item1).ClassName <> 'TodCompetitor' then
  begin
    beep;
  end;
  if TComponent(Item2).ClassName <> 'TodCompetitor' then
  begin
    beep;
  end;
  C1 := TodCompetitor(Item1);
  C2 := TodCompetitor(Item2);
  if C1.Tag <> C1.GameParty.Tag then
  begin
    beep;
  end;
  if C2.Tag <> C2.GameParty.Tag then
  begin
    beep;
  end;
  Result := CompareValue(C2.GameParty.PlayerList.Count, C1.GameParty.PlayerList.Count);
  if Result = 0 then
    Result := Random(3) - 1;
end;
 
//
 
...
// CL ist ein Container, der intern eine einfache Liste verwaltet
for I := 0 to CL.Count - 1 do // Liste vor Sort prüfen
  begin
    // CodeSite.Send(inttostr(CL.Competitor(I).GameParty.PlayerList.Count));
    if Integer(Pointer(CL.Competitor(I))) > $10000000 then
      begin
        beep; // kommt nicht vor
      end;
    if not odExist(CL.Competitor(I)) then
      begin
        beep; // kommt nicht vor
      end;
    if CL.Competitor(I).Tag <> Succ(I) then
      begin
        beep; // kommt nicht vor
      end;
    if not odExist(CL.Competitor(I).GameParty) then
      begin
        beep; // kommt nicht vor
      end;
    if CL.Competitor(I).GameParty.Tag <> Succ(I) then
      begin
        beep; // kommt nicht vor
      end;
  end;
if CL.Count > 1 then
  CL.Items.Sort(ListSortCompetitors); // Liste Sortieren - gelegentlich Zugriffsfehler
...

[MacGuyver]

Moin,

du könntest da ein Problem im Sortieralgorythmus haben, weil sich die Datenmenge ändert:

Delphi-Quellcode:

Result := CompareValue(C2.GameParty.PlayerList.Count, C1.GameParty.PlayerList.Count);
   if Result = 0 then
     Result := Random(3) - 1;

Bei Gleichheit sortiert er mal so und mal so. Schaffe anders eine sichere Sortierfolge. Du könntest den Pointer auf Integer casten und damit bei Gleichheit vergleiche.

Stefan

[stahli]

Das dachte ich auch schon, aber eine Sortierfunktion nur mit Result := Random(3) - 1; macht keine Probleme.

Ich dachte dann, dass u.U. vielleicht durch die Zufallswerte ein paar "unnötige Vergleiche" durchgeführt werden, was aber letztlich kein wirkliches Problem wäre.

Wenn ich die Pointer vergleiche, hätte ich ja eine feste Reihenfolge, was ich gerade vermeiden will.
Ich kann ja mal testweise in Tag einen Zufallswert schreiben und darauf vergleichen. Aber irgendwie komisch, das Ganze.

Wo dieser komische Pointer her kommt, ist mir halt unklar.

Ach so ... Ich weiß jetzt gar nicht, welches Sortierverfahren List.Sort nutzt (kann ich später erst nachschauen). Evtl. sind die Reihenfolgen bei 0 ja ohnehin undefiniert - dann könnte ich mir das ganze randomieren auch sparen.

[p80286]

Versuch es doch mal so:

Delphi-Quellcode:

  C1 := TodCompetitor(Item1^);
  C2 := TodCompetitor(Item2^);

Gruß
K-H

[himitsu]

Zitat:

Delphi-Quellcode:

  if Integer(Item1) >= $10000000 then
  begin
    Exit(0); // Zugriffsfehler vermeiden

Was für Zugriffsfehler sollen das denn sein?

In einem Win32-Programm kann ein Pointer locker bis $7FFFFFFF gehn und bei aktivierter 3 GB-Speicherverwaltung auch noch viel weiter hoch.

Bei dir müssen Pointer innerhalb der ersten 256 MB des virtuellen Arbeitsspeichers liegen, wo sie zu mindetens 88% ganz bestimmt nicht liegen werden. (bis zu durchschnittlich 94% bei 3-4 GB)

[Blup]

Vorab wird CL.Competitor geprüft, sortiert wird aber CL.Items.
Stellt sich die Frage, was ist da überhaupt drin und wie kommt es da rein.