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.