ptrInt -> integer

[Vbxler]

Wenn ich bei der Compilereinstellung -CR(Methodenaufrufe prüfen) einschalte,
habe ich das Problem, dass ich bei 'TButton(Sender).Tag' (Rückgabetyp ist PtrInt)
nicht in eine Variabel vom Typ Integer speichern kann.

Code: Alles auswählen

  //welcher Button wurde betaetigt?
  iPageAuswahl := TButton(Sender).Tag;  

Wenn ich die Anwendung starte erhalte ich die Meldung: 'Invalid type cast.'
Frage: Wie muss ich das machen, dass der Rückgabewert in Integer gespeichert werden kann.
Oder, welche Compilerschalter sind wichtig bzw. sinnvoll?

Danke für eure Hilfe.

[Komoluna]

Bei mir geht das (Lazarus 1.5 FPC 3.1.1 i386-win32-win32/win64) mit Compilerschalter -CR:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  i:=TButton(Sender).Tag;
end; 

[Socke]

habe ich das Problem, dass ich bei 'TButton(Sender).Tag' (Rückgabetyp ist PtrInt)
nicht in eine Variabel vom Typ Integer speichern kann.

Dann speichere das doch in einer Variablen vom Typ PtrInt.

[Vbxler]

@Socke
habe ich schon Probiert, es kommt die selbe Meldung bei der Übernahme des TAG.

@Komoluna
Das ist ja Witzig, bei mir geht das nicht:

Code: Alles auswählen

procedure TfrmDaten.cmdMain_PageSelection(Sender: TObject);
var
  iPageAuswahl : Integer = 0;
begin
 
  //welcher Button wurde betaetigt?
  iPageAuswahl := TButton(Sender).Tag;   //<-- 'Invalid type cast.'
 
  //Selektion der Seite
  pgMain_Verwaltung.TabIndex  := iPageAuswahl;
  self.Caption                := aPageVerwaltung[iPageAuswahl];
end;    

Dann wird der Schalter -CR eben auf aus bleiben.

Danke für eure Hilfe!

[mischi]

Auch wenn es keine Fehlermeldung gibt, wird denn der Pointer richtig dereferenziert, also bekommt i wirklich die Zahl oder doch nur die Adresse? Müsste der Code nicht so lauten (also mit ^ für das Dereferenzieren):

iPageAuswahl := TButton(Sender).Tag^

MiSchi

[theo]

@Komoluna
Das ist ja Witzig, bei mir geht das nicht:

Wenn du jetzt statt "bei mir" wie Komoluna die Compilerversion angeben würdest, könnte man daraus vielleicht irgendwelche Rückschlüsse ziehen.

[theo]

Auch wenn es keine Fehlermeldung gibt, wird denn der Pointer richtig dereferenziert,

PtrInt ist eigentlich kein Pointer. http://www.freepascal.org/docs-html/rtl ... trint.html

[Socke]

//welcher Button wurde betaetigt?
iPageAuswahl := TButton(Sender).Tag; //<-- 'Invalid type cast.'

Bist du dir sicher, dass sich die Meldung auf Tag und nicht auf TButton(Sender) bezieht?

Was sagt Sender.ClassName?

[mischi]

Auch wenn es keine Fehlermeldung gibt, wird denn der Pointer richtig dereferenziert,

PtrInt ist eigentlich kein Pointer. http://www.freepascal.org/docs-html/rtl ... trint.html

Stimmt. Mein Missverständnis. Müsste aber die Fehlermeldung dann nicht bedeuten, dass entweder integer oder ptrint nicht mehr longint ist, oder werden die abgeleiteten Typen als nicht mehr kompatibel eingestuft?

Brute force sollte auch gehen oder übersehe ich schon wieder etwas:

iPageAuswahl := integer(TButton(Sender).Tag);

Kann man dann -CR nicht wieder einschalten?

MiSchi.

[theo]

Müsste aber die Fehlermeldung dann nicht bedeuten, dass entweder integer oder ptrint nicht mehr longint ist, oder werden die abgeleiteten Typen als nicht mehr kompatibel eingestuft?

Der Hund liegt wahrscheinlich woanders begraben.
Socke hat schon recht, es ist ja ein Laufzeitfehler.
Da stimmt ziemlich sicher was mit dem Typecasting von TButton(Sender) nicht.

[Warf]

Mir würde ein workaround a'la quick and dirty einfallen:

Code: Alles auswählen

var i: IntPtr;
...
I:=(Sender as TButton).Tag;
Move(i, iPageAuswahl, SizeOf(iPageAuswahl));
 

[mischi]

Müsste aber die Fehlermeldung dann nicht bedeuten, dass entweder integer oder ptrint nicht mehr longint ist, oder werden die abgeleiteten Typen als nicht mehr kompatibel eingestuft?

Der Hund liegt wahrscheinlich woanders begraben.
Socke hat schon recht, es ist ja ein Laufzeitfehler.
Da stimmt ziemlich sicher was mit dem Typecasting von TButton(Sender) nicht.

Du, meinst das der Sender entweder kein TButton ist, oder zumindest nichts kompatibles, so dass .Tag irgendwo im Karpfenteich des Speichers angel?

[theo]

Du, meinst das der Sender entweder kein TButton ist, oder zumindest nichts kompatibles, so dass .Tag irgendwo im Karpfenteich des Speichers angel?

Ja. Die Laufzeitmeldung 'Invalid type cast' kann man ja bei -CR bspw. so provozieren:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var AObj:TComponent;
begin
 AObj:=TRadioButton(Sender);
end;
 
 

Aber was Vbxler genau gemacht hat, wissen wir ja nicht.

[Socke]

Du, meinst das der Sender entweder kein TButton ist, oder zumindest nichts kompatibles, so dass .Tag irgendwo im Karpfenteich des Speichers angel?

Solange Sender ebenfalls von TComponent abstammt, ist der Speicherzugriff korrekt, da die Eigenschaft Tag dort definiert wird.
Im Allgemeinen gillt bei Typecasts:

Code: Alles auswählen

TButton(Sender).Tag; // wirft keine Exception, wenn Sender kein TButton ist
(Sender as TButton).Tag; // wirft Exception, wenn Sender kein TButton ist

Wobei -CR das weiter beeinflusst.

[Vbxler]

Hallo Leute, sorry das ich mich erst heute melde,
da ich die letzten Tage unterwegs war.

@Socke:

Solange Sender ebenfalls von TComponent abstammt, ist der Speicherzugriff korrekt, da die Eigenschaft Tag dort definiert wird.

Das ist genau der Grund, warum ich den Fehler hatte!
Ich habe nämlich keinen TButton, sondern einen TBCButton verwendet.

Wie immer, 80% der Probleme sind 60cm vom Monitor entfernt.

Vielen Dank für eure Hilfe!!!