如何在Delphi中传递作为参数的范围？

Question

在Delphi中,我可以定义一系列字符或整数,如下所示:

var
  a,i: integer;
  b: char;
  intrange: 1..9;
  charrange: '?' .. '?';

begin

  for a := low(IntRange) to high(IntRange) do
  begin
    Memo1.Lines.Add('Integer Range Iteration = ' + intToStr(a) ) ;
  end;

  i:=0;
  for b := low(charrange) to high(charrange) do
  begin
    i := i + 1;
    Memo1.Lines.Add('Character Range Iteration = ' + intToStr(i) + ',   value = ' + b +'  ord '+ inttostr(ord(b))) ;
  end;
end;

如何将范围作为参数传递给函数？

Answer 1

您可以使用子范围类型:

type
  TCharrange = '?' .. '?';

procedure MyFunction(Char: TCharrange);

现在你可以做到

MyFunction('?');

而

MyFunction('a');

不行.