Hallo
Ich habe folgendes Problem. Ich erzeuge ausserhalb der funktion initFontList eine HashedStringlist. Diese HashedStringlist fülle ich ausserhalb von initFontlist mit deault werten. Jetzt möchte ich diese defaultwerte ersetzten. Allerdings stürtzt mir der Debugger bei dieser stelle ab:
StringToFont(
Query.FieldValues['FONT'], List.Objects[I] as TFont);
Wo liegt das Problem.
Delphi-Quellcode:
procedure TDM.initFontList(
var List : THashedStringList ; Filter :
String);
Begin
...
While (
Not Query.EOF )
Do
Begin
I := List.IndexOf(TempStr);
If( I >= 0 )
Then
Begin
StringToFont(
Query.FieldValues['
FONT'], List.Objects[I]
as TFont);
End;
Query.Next;
End;
End;
...
procedure StringToFont(Str:
String; Font: TFont);
...