如何解决运行时出现的错误提示，具体内容见文章内容

Question

TForm1 = class(TForm);
  tcharset = set of char;  private
  procedure displayresultset(operationname : string; const
           charset : tcharset);
   procedure settests;
    { Private declarations }
  public
    { Public declarations }
end;

Answer 1

tcharset = set of char;
放到外面去

Answer 2

unit jihe;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type  TForm1 = class(TForm);
    private
  procedure displayresultset;
   procedure settests;
    { Private declarations }
  public
    { Public declarations }
   end;
Type
   tcharset = set of char;
 const
  a : tcharset =['a'..'m','r','s','u'];
  b : tcharset =['b','g','h','l'..'z'];
  subseta : tcharset =['a'..'g'];
  superseta : tcharset =['a'..'m','r','s','u','v'];
  
var
  Form1: TForm1; 你这样试试,用该是可以的.