Zugriff auf Label.Tag

[gfjs]

Guten Morgen, Allerseits.

Ich kann mit str := Label1.Tag.ToString; auf das Tag zugreifen, nicht aber mit n := Label1.Tag; Fehlermeldung: "E2010 Inkompatible Typen: 'Integer' und 'object'"

Jetzt wollte ich mir mit n.Parse(str); behelfen, aber das klappt nicht, denn Text := n.ToString; bringt dann als Ergebnis immer '0'.

Wie kann ich nun auf den Integerwert im Tag zugreifen?

Danke im Voraus.

mfg gfjs

[JasonDX]

hmm, wenn du eine direkte Zuweisung vornimmst aka label1.Tag := 13; dann solltest du solabel1.Tag as Int32 einwandfrei darauf zugreifen koennen.
Wenn du hingegen das Tag im OI gesetzt hast, ist es iirc ein String. Den Int-Wert herhaelst du dann mit Int32.Parse(label1.Tag as string) (ungetestet)

greetz
Mike

[Jürgen Thomas]

Zitat von gfjs:

Fehlermeldung: "E2010 Inkompatible Typen: 'Integer' und 'object'"

Wie kann ich nun auf den Integerwert im Tag zugreifen?

Theoretisch sollte es so klappen (ungetestet):

Delphi-Quellcode:

n := (int)Label1.Tag;
//  oder so:
n := Convert.ToInt32(Label1.Tag);

jedenfalls unter Voraussetzung: n ist Integer, und Tag wurde ein Integer zugewiesen.

Hintergrund: In der FCL gibt es fast niemals 'reine' Datentypen, sondern alles sind Klassen (auch Integer). Vermutlich deshalb ist Control.Tag nicht als Integer, sondern als Object deklariert. Beim Schreiben konvertiert CLR den Integer automatisch in ein Integer-Object; beim Lesen muss man manuell konvertieren.

Gruß Jürgen

[gfjs]

@ Jürgen Thomas + JasonDX

Vielen Dank für Eure schnelle Antwort.

Ich habe frmSpielplan_Activated mit Tag := i; die Tags als Integer zugewiesen. Das hat auch geklappt, denn wenn ich mit str := dummy.Tag.ToString; die Tags anzeigen lasse, klappt es problemlos.

n := int(dummy.Tag) as Int 32; und n := int(dummy.tag); bringen folgende Fehlermeldung:

[Pascal Fehler] uSpielplan.pas(154): E2250 Es gibt keine überladene Version von 'Int', die man mit diesen Argumenten aufrufen kann

n := Convert.ToInt32(dummy.Tag); bringt keine Fehlermedlung aber mit str := n.ToString; das falsche Ergebnis '0'.

Ich bleibe also so ratlos wie vorher.

mfg gfjs

[JasonDX]

Zitat von gfjs:

 := int(dummy.Tag) as Int 32; und n := int(dummy.tag); bringen folgende Fehlermeldung:

[Pascal Fehler] uSpielplan.pas(154): E2250 Es gibt keine überladene Version von 'Int', die man mit diesen Argumenten aufrufen kann

Ja, ein kleiner Ausritt nach C#, dort ist Int32 auch als int verwendbar. Ein Reines dummy.Tag as Int32 sollte funktionieren.

Zitat von gfjs:

n := Convert.ToInt32(dummy.Tag); bringt keine Fehlermedlung aber mit str := n.ToString; das falsche Ergebnis '0'.

Ja, ueberlege mal, was du machst: Du konvertierst ein object, das einen Int zugewiesen bekommen hat (und entsprechend auch ein solcher ist) in einen Integer. Kurz: Du konvertierst Int in Int. Bloss, dass die Methode nicht weiss, das dummy.Tag ein integer ist
Die Stichworte hier sind Boxen und Unboxen. Bei der zuweisungdummy.Tag := 1; "boxt" du die 1 (als Integer) in ein object. (Structs muessen erst auf objects geboxt werden, im Gegensatz zu Klassen). Und du musst nun dummy.Tag "unboxen", um aus dem object wieder einen Integer zu machen. Und dafuer reicht ein purer Typecast:

Delphi-Quellcode:

dummy.Tag as Int32
//oder
Int32(dummy.Tag)

greetz
Mike

[xaromz]

Hallo,

was hier gemacht werden muss, ist das Boxing eines Integer in ein Object. Dazu muss man auch bei der Zuweisung aufpassen:
Label1.Tag := Int32(12345); Damit ist nämlich der Typ des Objekts festgelegt.
Jetzt kann man wieder mittelns Unboxing
I := Int32(Label1.Tag); darauf zugreifen.

Gruß
xaromz

[gfjs]

@ JasonDX

Hallo, Mike.

Mit
  n := (sender as System.Windows.Forms.&Label).Tag as Int32; klappt's jetzt endlich.

Einen Extra-Dank für Deine ausführliche Erklärung.


@ xaromz

Auch mit
n := Int32((sender as System.Windows.Forms.&Label).Tag); klappt's, obwohl ich bei der Zuweisung nur Label1.Tag := i; anstelle von Label1.Tag := Int32(i); verwendet habe.

mfg und vielen Dank

Jürgen