UserData (Zeiger) geht verloren

[Luckie]

Ich habe eine Art TImage. Auf dieser Komponente kann man Objekte erzeugen, zum Beispiel Textobjekte. Diesen Objekten kann man benutzerspezifische Daten anhängen in der Eigenschaft UserObjData. Das sieht dann so aus:

Delphi-Quellcode:

type
  TUserObjData = record
    FPageNumberMark: Integer;
  end;
  PUserObjData = ^TUserObjData;

procedure TFBImageEn.AddPageNumber(Number: Integer);
var
  UserObjData       : PUserObjData;
begin
  with ImageEnVect do
  begin
    New(UserObjData);
    UserObjData.FPageNumberMark := 1;
    ObjUserData[-1] := UserObjData;
    // Test
    UserObjData := ObjUserData[-1];
    Writeln('AddPageNumber');
    Writeln(UserObjData.FPageNumberMark);  // Test OK "1" wird ausgegeben
    //
    ObjFontName[-1] := 'Tahoma';
    ObjFontHeight[-1] := -12;
    ObjFontStyles[-1] := [];
    ObjPenColor[-1] := clBlack;
    ObjBrushStyle[-1] := bsClear;
    ObjMemoCharsBrushStyle[-1] := bsClear;
    ObjMemoBorderStyle[-1] := psClear;
    ObjTextEditable[-1] := False;
    ObjText[-1] := IntToStr(Number);
    ObjTop[-1] := Height - 25;
    ObjWidth[-1] := 20;
    ObjTextAlign[-1] := iejCenter;
    ObjLeft[-1] := (Width div 2) - (ObjWidth[-1] div 2);
    AddNewObject;
    Update;
  end;
end;

In diesem Fall erstelle ich ein Textobjekt mit einer Seitenzahl. Damit ich das Textobjekt wiederfinden (Ich muss wissen ob es ein Seitenzahl-Textobjkekt ist oder nicht), speichere ich in der Eigenschaft UserObjData einen Marker, de rmir das Textobjekt als Seitenzahl-Textobjekt markiert. Ok, soweit verstanden?

Weiter. Alle TImage-Komponenten werden nun in einer TPageCollection vom Typ TList verwaltet. Die Methode Update aktualisiert ein Objekt in dieser Liste:

Delphi-Quellcode:

procedure TPageCollection.Update(Index: Integer; Item: TImageEnVect);
var
  i                 : Integer;
  j                 : Integer;
begin
  // Test
  Writeln('PageCollection.Update');
  for i := 0 to Item.ObjectsCount - 1 do
  begin
    if Assigned(Item.ObjUserData[i]) then  // Item.ObjUserData ist immer nil
    begin
      j := PUserObjData(Item.ObjUserData[i])^.FPageNumberMark;
      Writeln(j);
    end;
  end;
  // 
  self.Items[Index] := Item;
end;

Und schon hier kommen die benutzerspezifischen Daten nicht mehr an uns sind verloren. Das kann jetzt natürlich ein Bug in der Komponente sein. Es kann allerdings auch sein, dass ich grundsätzlich was falsch mache.

Vergleichen kann man das wohl mit der Methode AddObject von TListBox oder TComboBox etc.