Integer property setzen mit RTTI

[himitsu]

Wisst ihr, wie sehr es "mich" interessiert, was in der DFM steht oder was im OI angezeigt wird?
Garnicht.

Delphi-Quellcode:

SetOrdProp(Font, 'Charset', 123);

SetOrdProp(Font, 'Charset', DEFAULT_CHARSET);

var i: Integer;
IdentToCharset('DEFAULT_CHARSET', i);
SetOrdProp(Font, 'Charset', i);

Es ist und bleibt ein ordinaler Typ und dieser läßt sich via SetOrdProp beschreiben.


Die Anzeige im OI und der String in der DFM werden vom OI und vom DFM-Loader gemacht, da für diesen Typen eine entsprechende Übersetzungstabelle registriert ist.
RegisterIntegerConsts(TypeOf(TFontCharset), IdentToCharset, CharsetToIdent); .
Das Property bleibt aber dennoch ein Byte.

[Stevie]

Zitat von himitsu:

Wisst ihr, wie sehr es "mich" interessiert, was in der DFM steht oder was im OI angezeigt wird?
Garnicht.

Delphi-Quellcode:

SetOrdProp(Font, 'Charset', 123);

SetOrdProp(Font, 'Charset', DEFAULT_CHARSET);

var i: Integer;
IdentToCharset('DEFAULT_CHARSET', i);
SetOrdProp(Font, 'Charset', i);

Es ist und bleibt ein ordinaler Typ und dieser läßt sich via SetOrdProp beschreiben.


Die Anzeige im OI und der String in der DFM werden vom OI und vom DFM-Loader gemacht, da für diesen Typen eine entsprechende Übersetzungstabelle registriert ist.
RegisterIntegerConsts(TypeOf(TFontCharset), IdentToCharset, CharsetToIdent); .
Das Property bleibt aber dennoch ein Byte.

Sauber aneinander vorbeigeredet. Logisch geht das mit SetOrdProp, aber es ging darum, den Wert von DEFAULT_CHARSET zu bekommen, wenn man das nur als string Repräsentation hat. Und genau das hast du mit IdentToCharset getan.

[KalEl]

Danke erstmal für eure Antworten. Wie Stevie schon erkannt hat geht es in diesem Fall wirklich darum was in der dfm steht - was ich benötigen würde wäre eine allgemeine Lösung, der Object Inspector schafft es im Prinzip ja auch mit beliebigen Datentypen umzugehen, es sollte im Prinzip also machbar sein eine Art dfm loader zu implementieren der ebenfalls damit klar kommt. Wenn ich den ersten Problemfall - nämlich PropType^.Name = 'TFontCharset' abfange, dann kommt unmittelbar danach gleich der nächste Fall bei dem PropType^.Kind = tkInteger und PropType^.Name = 'TColor'.

Daher die Frage nochmal ein wenig konkretisiert: Wie kann ich ausgehend vom Datentyp (der mit PropType^.Name als String vorliegt) und natürlich dem Wert selbst - beispielsweise clWindow, clRed oder eben auch DEFAULT_CHARSET zum ordinalen Wert kommen, der sich dann mit SetOrdProp zuweisen lässt?

[Stevie]

FindIdentToInt

[KalEl]

Ok, das heisst FindIdentToInt(..)('IRGENDWAS', iValue) müsste das was ich brauche eigentlich erledigen - was mir noch nicht ganz klar ist: woher bekomme ich den Parameter für FindIdentToInt? Der ist vom Typ Pointer und soweit ich das verstehe bekommt man diesen über TypeInfo(..); Ich habe aber mit GetPropInfo nichts zur Verfügung das man dafür verwenden könnte, oder sehe ich das falsch?

Danke nochmal für die Hilfe!

[Stevie]

Rat mal, was PropType^ ist

[KalEl]

Das hatte ich gestern eigentlich schon versucht - aber hab dann wohl den falschen String übergeben. Jetzt funktioniert es einwandfrei, danke nochmal für die Hilfe.