So lesen ich es aus:
Delphi-Quellcode:
procedure TForm1.ComboBox1Change(Sender: TObject);
var
tFont:Integer;
begin
tFont := ComboBox1.ItemIndex;
Richedit1.SelAttributes.Name := ComboBox1.Items.ValueFromIndex[tFont];
end;
lass ich mir ComboBox1.Items.ValueFromIndex[tFont]; in einer Message ausgeben fehlt mir immer der erste Buchstabe genauso ist es auch bei den Schriftgrößen da fehlt immer die erste Zahl