XProfan

Cls
Declarar fontList$'con uno globalen Variable necesario wir el Liste sólo una vez generieren

Proc FontExists

    Parámetros font$

    If (fontList$ = "")'gibts ya una Liste?

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

    Endif

    Volver (InStr("##" + lower$(font$ )+ "##", fontList$) > 0)'sólo genaue Treffer, welche de Trennzeichen eingeschlossen son

ENDPROC

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

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