UserData (Zeiger) geht verloren

[Luckie]

Nein, das macht schon die Compilermagic.

[C.Schoch]

Hi,
Werden lokale Objekte nicht beim verlassen einer Prozedur automatisch freigegeben?
Wenn ich das richtig sehe weist du hier die lokale Pointeraddresse ObjUserData[-1] zu.
ObjUserData[-1] := UserObjData; Was aber passiert beim Verlassen der Prozedur wird UserObjData nicht freigegeben und somit auch ObjUserData[-1]?!

[Luckie]

Nein. Die Variable UseroOjData wird ungültig, da der Speicher aber nicht freigegen wird, ist der Speicherbereich für die Eigenschaft ObjUserData des Objektes noch gültig.

[ConstantGardener]

hallo nochmal, letzter Versuch... versprochen....

hast Du die Länge des Puffers definiert auf den der Pointer verweist (

Zitat:

which length is in ObjUserDataLength

). Vielleicht ignoriert er den Pointer wenn die Pufferlänge nicht definiert wird ?

[Luckie]

Das habe ich mir kurz vor Feierabend auch über legt und ObjUserDataLength sizeof(TUserObjData) zugewiesen. Das hat aber auch nicht funktioniert.

[ConstantGardener]

ich geh ins Bett

[Luckie]

Na, das istaber kein Grund hier meinen Arbeitsplatz voll zu kotzen.

Das dumme ist nur, ich habe sonst keine andere Möglichkeit diese Textobjekte zu markieren damit ich sie von anderen unterscheiden kann. Eine Eigenschaft wie Tag gibt es nicht.

[Luckie]

Ich habs, ich habs, ich habs.

Man muss das Objekt zu erst erstellen:

Delphi-Quellcode:

procedure TFBImageEn.AddPageNumber(Number: Integer);
var
  UserObjData       : PUserObjData;
  hObj: Integer;
begin
  with ImageEnVect do
  begin
    hObj := AddNewObject;
    New(UserObjData);
    UserObjData.FIsPageNumberObj := True;
    ObjUserDataLength[hObj] := sizeof(TUserObjData);
    ObjUserData[hObj] := UserObjData;
    // Test
    UserObjData := ObjUserData[hObj];
    Writeln('AddPageNumber');
    Writeln(ObjUserDataLength[hObj]);
    Writeln(BoolToStr(UserObjData.FIsPageNumberObj, True)); // Test OK - output is "True"
    // End test
    ObjFontName[hObj] := 'Tahoma';
    ObjFontHeight[hObj] := -12;
    ObjFontStyles[hObj] := [];
    ObjPenColor[hObj] := clBlack;
    ObjBrushStyle[hObj] := bsClear;
    ObjMemoCharsBrushStyle[hObj] := bsClear;
    ObjMemoBorderStyle[hObj] := psClear;
    ObjTextEditable[hObj] := False;
    ObjText[hObj] := IntToStr(Number);
    ObjTop[hObj] := Height - 25;
    ObjWidth[hObj] := 20;
    ObjTextAlign[hObj] := iejCenter;
    ObjLeft[hObj] := (Width div 2) - (ObjWidth[hObj] div 2);
    //AddNewObject;
    Update;
  end;
end;

Das hätten sie aber ruhig mal in der Hilfe schreiben können.

[ConstantGardener]

... Glückwunsch !!!

konnte erst jetzt antworten da ich die Sauerrei noch beseitigen musste.

[Luckie]

Nun ja, der Gag ist ja, dass man es auch anders rum machen kann, wenn man diese Eigenschaft nicht braucht.