Probleme mit Scrren.Fonts

[crasher1985]

Hallo folgendes Problem hab ich ich fülle eine ComboBox mi den schriftarten
ComboBox1.Items.Assign(Screen.Fonts); Bei der Ausgabe fehlt immer der erste Buchstabe (z.B. aus Arial wird rial) des Namens woran liegt das?

[Max Langer]

Also ich mach das so:

Combobox1.Items := Screen.Fonts; bei mir funktionierts!

Max

[turboPASCAL]

Das liegt aber nicht an
ComboBox1.Items.Assign(Screen.Fonts); sondern an einer anderen Stelle im Code.

Bei mir funktioniert das ohne Probleme (D6).

[crasher1985]

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

[turboPASCAL]

Hier auch ?

[Jarmen_Kell]

Das Problem liegt bei
ComboBox1.Items.ValueFromIndex[tFont];

Hatte ich auch immer, als ich mein Prog Multilingual machen wollte und immer der erste Buchstabe der Buchstabendatei fehlte.. ich habe damals einfach immer einen fixen Buchstaben vor alle Dateinamen in der Combobox gepackt. z.B. stand dort
lDeutsch.dll
dEnglisch.dll
Die eigentlichen Namen waren ohne l, daher wurde es gleich richtig geladen.. bei Fonts dürfte das natürlich schwerer sein.. Ich hab zZ keine Ahnung, woran das liegt und wie es zu beheben ist. Kann das ganze nur bestätigen und wäre an einer Lösung auch sehr interessiert!

[crasher1985]

Die Variante von
turboPASCAL funktioniert nur sehe ich nicht wirklich einen Unterschied im Einfüge uns Abfrage Verhalten.
Als unsaubere Lösung habe ich jetzt überall ein leerzeichen davor gemacht!

Frage ich direkt den String anstatt von ValueFromIndex ab so geht es aber wo liegt hier der Unterschied?