IGxSystemFontNames.Item

Копировать пример

Sub UserProc;
Var
    font: IGxSystemFontNames;
    n: integer;
    names: string;
    i: integer;
Begin
    // Создадим объект для работы с системными шрифтами
    font := New GxSystemFontNames.Create;
    // Получим количество системных шрифтов
    n := font.Count - 1;
    // Получим и выведем в окно консоли названия и количество всех системных шрифтов
    For i := 1 To n Do
        names := font.Item(i - 1);
        Debug.WriteLine("Название системного шрифта №" + i.ToString + " = " + names);
    End For;
    Debug.WriteLine("Количество системных шрифтов = " + n.ToString);
End Sub UserProc;