CharSet mit Hilfe von Strings zuweisen?

[PeterPanino]

Hallo und schönen Abend!

Ich lese gerade in Delphi XE2 mit Vcl.Graphics.GetCharsetValues die CharSets in eine ComboBox ein, was problemlos geht:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  cbbCharset.Items.Clear;
  Vcl.Graphics.GetCharsetValues(AddCharacterSet);
  if cbbCharset.Items.Count > 0 then
    cbbCharset.ItemIndex := 0;
end;

procedure TForm1.AddCharacterSet(const S: string);
begin
  cbbCharset.Items.Add(S);
end;

Wenn ich dann aber ein Element der CharSet-ComboBox auswähle, um dem Font eines Objektes ein CharSet zuzuweisen, stoße ich darauf, dass mit den Strings der ComboBox kein CharSet zugewiesen werden kann.

Wie könnte man nun die ComboBox-Strings verwenden, um ein CharSet zuzuweisen?

[Bernhard Geyer]

Ab D2009 ist die VCL 100% Unicode-Enabled. Alles was noch als Property Form.Charset existiert wird nicht mehr ausgewertet/verwendet.

[Uwe Raabe]

IdentToCharset

[PeterPanino]

Zitat von Uwe Raabe:

IdentToCharset

Vielen Dank für den Hinweis!

[PeterPanino]

Zitat von Bernhard Geyer:

Ab D2009 ist die VCL 100% Unicode-Enabled. Alles was noch als Property Form.Charset existiert wird nicht mehr ausgewertet/verwendet.

Ich benutze die ComboBox mit den Charsets zum Umschalten des Zeichenbereichs einer Zeichentabelle (TJvCharMap), aus der der Benutzer dann ein Zeichen auswählen kann. Das funktioniert nun mit der von Uwe Raabe aufgezeigten Funktion sehr gut. Vielen Dank an alle!