delphi - 在 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

您可以使用subrange types :

type
  TCharrange = 'α' .. 'ζ';

procedure MyFunction(Char: TCharrange);

现在你可以做

MyFunction('γ');

而

MyFunction('a');

不起作用。