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?