XProfan

Cls
Declare fontList$'with of/ one global Variable must we The list only once Generate

Proc FontExists

    Parameters font$

    If (fontList$ = "")'Gibts already a list?

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

    Endif

    Return (InStr("##" + lower$(font$ )+ "##", fontList$) > 0)'only detailed hits, which of Separator locked in are

ENDPROC

Print "Arial Black:      " + if(FontExists("Arial Black"), "existiert", "fehlt")
Print "Consolas:         " + if(FontExists("Consolas"), "existiert", "fehlt")
Print "Courier New:      " + if(FontExists("Courier New"), "existiert", "fehlt")
Print "qwertzuiop:       " + if(FontExists("qwertzuiop"), "existiert", "fehlt")
Waitkey
End

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