[Van-89]

Читал про собственный тип данные еще когда изучал паскаль и только Сейчас решил попробовать применить эту возможность...

Программа должна по очереди напечатать все заданные символы...
подскажите в чем проблема...

[NumLock]

Код:

type
  tname = 'a'..'c';

var
  a: array [tname] of Integer = (11, 22, 33);

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Char;
begin
  for i:=Low(tname) to High(tname) do
    Memo1.Lines.Add(i+' = '+IntToStr(a[i]));
end;

[Van-89]

Спасибо всё работает!)