相关疑难解决方法(0)

使用Delphi 7处理控制台应用程序,并遇到了问题.我在第26行遇到错误

str := GetEnumName(TypeInfo (words[3].group),

错误显示"[错误] Project1.dpr(26):TYPEINFO标准函数需要一个类型标识符"如果有人可以帮助这个,那将是一个很大的帮助!

干杯!

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  TypInfo;

type
  wordset = Record
    word  : String;
    group : (flavour, colour, place, animal);
  end;
Var
  words : Array [1..50] of wordset;
  str : string;
  groups: string;
Begin
  words[1].word  := 'chocolate';
  words[1].group := flavour;
  words[2].word  := 'vanilla';
  words[2].group := flavour;
  words[3].word  := 'strawberry';
  words[3].group := flavour;

  str := GetEnumName(TypeInfo (words[3].group), integer(group));

  readln;
end.