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.

zusammenfalten · markieren

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);
...

Müsste das nichtQuery.FieldValues['FONT'].AsXYZ := heissen?

Nein eingentlich passt das schon, da es ja vorher ausserhalb dieser funktion auch so funktioniert hat.

Hast Du mal geschaut, was in List.Objects drin steht?

Danke hat sich erledigt!

Ja und?
An was hat's gelegen?
Wie hast Du es gelöst?