Добавить комментарий

Delphi

Конвертировать значение перечислимого типа в строку

uses 
     System.TypInfo
    ;

type
  TMyType = (mtFirst, mtSecond, mtThird, mtForth, mtFifth, mtLast);


var
  TM  : TMyType;
  TFS: TFontStyle;
begin
  // Допустимые значения TFontStyle
  for TFS := Low(TFontStyle) to High(TFontStyle) do
    Memo3.Lines.Add(GetEnumName(TypeInfo(TFontStyle), ord(TFS)));
 
  // или собственного типа
  for TM := Low(TMyType) to High(TMyType) do
    Memo3.Lines.Add(GetEnumName(TypeInfo(TMyType), ord(TM)));
end;

Filtered HTML

  • Адреса страниц и электронной почты автоматически преобразуются в ссылки.
  • Допустимые HTML-теги: <a> <em> <strong> <cite> <blockquote> <code> <ul> <ol> <li> <dl> <dt> <dd>
  • Строки и абзацы переносятся автоматически.
  • Вы можете цитировать другие сообщения, используя тэг [quote]

Plain text

  • HTML-теги не обрабатываются и показываются как обычный текст
  • Адреса страниц и электронной почты автоматически преобразуются в ссылки.
  • Строки и абзацы переносятся автоматически.