Как получить список доступных шрифтов в delphi?

@loyal 

Вы можете получить список доступных шрифтов в Delphi с помощью объекта Screen и свойства Fonts.

Вот пример кода:

1
2
3
4
5
6

var
  i: Integer;
begin
  for i := 0 to Screen.Fonts.Count - 1 do
    ShowMessage(Screen.Fonts[i]);
end;

Этот код перебирает все шрифты, доступные на компьютере, и выводит их имена в сообщении ShowMessage. Можно использовать другие методы для отображения списка шрифтов, например, для помещения списка в элемент управления списка (TListBox), используя его свойство Items:

1
2
3
4
5
6

var
  i: Integer;
begin
  for i := 0 to Screen.Fonts.Count - 1 do
    ListBox1.Items.Add(Screen.Fonts[i]);
end;

Этот код добавляет каждый шрифт в элемент управления списка ListBox1.