XProfan

Cls
Déclarer fontList$'avec einer globalen Variable doit wir qui liste seulement einmal generieren

Proc FontExists

    Paramètres font$

    Si (fontList$ = »)'gibts déjà une liste?

        ClearList
        AddFonts
        fontList$ = "##" + lower$(MoveListToStr$("##")) + "##"

    Endif

    Retour (InStr("##" + lower$(font$ )+ "##", fontList$) > 0)'seulement genaue Treffer, quelle de Trennzeichen eingeschlossen sommes

ENDPROC

Imprimer Arial Black:      " + si(FontExists(Arial Black"), "existiert", "fehlt")
Imprimer "Consolas:         " + si(FontExists("Consolas"), "existiert", "fehlt")
Imprimer "Courier New:      " + si(FontExists("Courier New"), "existiert", "fehlt")
Imprimer "qwertzuiop:       " + si(FontExists("qwertzuiop"), "existiert", "fehlt")
Waitkey
Fin

fontList$ = "##" + lower$(MoveListToStr$("##")) + "##"'X2
fontList$ = "##" + lower$(Move("ListToStr", "##")) + "##"'X4