Integer property setzen mit RTTI

[KalEl]

Hallo,

ich verwende die RTTI um zur Laufzeit Controls aus einer Datei (ähnlich dem .dfm Format) zu laden. Prinzipiell funktioniert das soweit auch, es gibt jedoch Sonderfälle wie beispielsweise bei der Font. In diesem Fall liefert der property type tkClass zurück - soweit so gut, das ist dann im Prinzip nur eine Rekursion um die Properties der Klasseninstanz zu setzen... auch das würde theoretisch funktionieren - wenn dann nicht der Fall Charset=DEFAULT_CHARSET eintreten würde - genau wie es auch im .dfm file steht... die RTTI liefert als Typ für Font.Charset leider tkInteger zurück und somit ist eine Zuweisung über SetOrdProp natürlich nicht mehr möglich. Gibt es irgendeine Möglichkeit zur Laufzeit zu ermitteln welchen Wert die Konstante DEFAULT_CHARSET hat?

[himitsu]

Zitat:

Zitat von KalEl (Beitrag 1104849)

und somit ist eine Zuweisung über SetOrdProp natürlich nicht mehr möglich.

Wieso nicht?

Integer ist ein ordinaler Typ und somit sollte SetOrdProp genau dafür geschaffen sein. :gruebel:

[Stevie]

Siehe IdentToCharset.

@Himi: In der dfm steht "DEFAULT_CHARSET" und kein Ordinalwert.

[ASM]

Zitat:

Gibt es irgendeine Möglichkeit zur Laufzeit zu ermitteln welchen Wert die Konstante DEFAULT_CHARSET hat?

Die Konstante DEFAULT_CHARSET hat doch unveränderlich per Definition immer den Wert 1.
Wogegen die dieser Konstanten zugeordneten Fonteigenschaften jeweils der landestypischen Windowsinstallation angepasst sind.

Ist also vielmehr gefragt, welcher Fontname aktuell (zur Runtime) der Konstanten DEFAULT_CHARSET zugeordnet ist (weil das Programm vielleicht zufällig gerade auf einem Rechner in Japan oder sonstwo läuft) ?
Wenn ja, dann:

Code:

function GetFontName(CharSetID: Longint): string; overload;
var
  _font: TFont;
  FontHandle: THandle;
  LogFont: TLogFont;
begin
  result := '';
  _Font := TFont.Create;
  try
    FillChar(LogFont, SizeOf(LogFont), #0);
    FontHandle := getStockObject(CharSetID);
    GetObject(FontHandle, SizeOf(LogFont), @LogFont);
    _font.name := StrPas(LogFont.lffaceName);
    result := _Font.Name;
  finally
    _Font.Handle := 0;
    _Font.Free;
  end;
end;

function GetFontName(CharSetName: string): string; overload;
var
  CharsetID: Longint;
begin
  IdentToCharset(CharSetName, CharSetID);
  result := GetFontName(CharSetID);
end;

//  Defined in Unit Windows:
//  DEFAULT_CHARSET = 1;
//  ANSI_FIXED_FONT = 11;
//
//  Beispiel:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Showmessage(format('DEFAULT_CHARSET = %s'#13#10 +
    'ANSI_FIXED_FONT = %s', [GetFontName('DEFAULT_CHARSET'), GetFontName(11)]));
end;

[Stevie]

Nett, aber völlig an der Frage vorbei.
Der TE wollte wissen, wie er aus dem string DEFAULT_CHARSET, welcher in der dfm Datei als Wert für die Property Charset von TFont steht, einen Zahlenwert erhält. Denn Charset ist vom Typ TFontCharset, welcher laut RTTI vom Typ tkInteger ist, denn TFontCharset ist als 0..255 definiert. In der dfm könnte nämlich auch RUSSIAN_CHARSET oder so stehen. Die möglichen Werte sind in der Graphics.pas im implementation Part in einem array namens FontCharsets gespeichert. Dafür sind die Funktionen CharsetToIdent und IdentToCharset da.

[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.

Delphi-Quellcode:

RegisterIntegerConsts(TypeOf(TFontCharset), IdentToCharset, CharsetToIdent);

.
Das Property bleibt aber dennoch ein Byte.

[Stevie]

Zitat:

Zitat von himitsu (Beitrag 1104963)

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.

Delphi-Quellcode:

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. :roll:

[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!