这是应群友的要求写的一段代码，用于将 Delphi 源码中 resourcestring 定义的资源字符串解析出来。 uses qstring; type TPascalResourceStringParser = class private function GetItems(const AIdx: Integer)