Zugriffsverletzung Pointer dereferenzieren

[CTest]

Hallo,

Ich habe eine Klasse TFlaeche mit der Eigenschaft Item.
Ich möchte Pointer auf Double-Werte dereferenziert in eine TDoubleList schreiben und den Pointer auf den Eintrag in der Liste in ein BTree schreiben. Beim Zugriff auf die Eigenschaft, zeigt der Pointer dann zwar noch auf die Adresse des Eintrags, es kommt aber beim dereferenzieren zur Zugriffsverletzung.

Code:

property Item[const Idx: Integer]: Pointer read GetItem write SetItem; default;
procedure TFlaeche.SetItem(const Idx: Integer; P: Pointer);
var
  idx: Integer;
begin
  FData.Add(Double(P^));
  FDataIdx[idx] := @FData.List^[FData.Count-1];
end;

function TFlaeche.GetItem(const Idx: Integer): Pointer;
begin
  Result := FDataIdx[idx]
end;

Zugriff:
var   d : Double;
...
  d := Double(FFlaeche[idx]^);

Kann mir jemand sagen, was da schief läuft?

vielen Dank

[Aphton]

Zeig mal, in welcher Methode die Double Werte hinzugefügt werden.
Ich habe den Verdacht, dass lokale Double-Variablen als Pointer hinzugefügt werden, die sich aber im Verlauf des Programmes ständig ändern usw.!
Tut evt. nichts zur Sache, ist aber ein weiterer potenzieller Bug!

Apropos Setter & Getter - warum verwendest du da 2 Listen? Reicht eine nicht aus?

[FredlFesl]

Hä?
Was ist denn FFeld[I,J]?

Nebenbei: Wird in FData die 'List' nicht zwischendurch mal mit 'SetLength' woanders hin gepackt?


Und unter uns: Was Du da machst, ist ziemlich krank.

[jaenicke]

Zitat von FredlFesl:

Was ist denn FFeld[I,J]?

Ja, ich sehe da auch nicht durch. Was hier ein zweidimensionales Array FFeld mit dem Rest zu tun hat...

Ohne zusammenhängenden Quelltext kann man da nicht viel dazu sagen. Am besten wäre wohl ein kleines abgeschlossenes Demoprojekt...

[CTest]

Hallo,
Danke für die Antwort.

Ja, die Double-Werte werden aus einer Datei gelesen und in einer Prozedur hinzugefügt. Da in der TDoubleList Speicher mit ReallocMem reserviert wird, dachte ich der Wert sei dann dort gespeichert, auch nach überschreiben der eingegebenen Variable. FDataIdx ist von einer Klasse TBTree, wo nur die ID und der Pointer eingetragen werden, da die eingegebene Variable später wieder verworfen wird, wollte ich die ebend in die andere Liste eintragen. Und ohne den BTree würde ich nicht mehr über den Index an die Werte kommen, außer ich setze Count von der Liste vorher auf den maximalen Index, dann wäre aber nicht mehr zu unterscheiden, ob der Wert schon gesetzt ist, will dann aber nil zurück haben, wenn der Wert noch nicht gesetzt ist.

Zitat von jaenicke:

Zitat von FredlFesl:

Was ist denn FFeld[I,J]?

Ja, ich sehe da auch nicht durch. Was hier ein zweidimensionales Array FFeld mit dem Rest zu tun hat...

Tschuldigung, das wars nicht

[FredlFesl]

Beschreib doch einfach mal, was Du machen willst.
Was stellt das Tupel [ID, Double] denn dar?