referenz probleme

**day**

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

...

referenz probleme

referenz probleme

Forumregeln