配列型のconst各要素にアクセスするには？

解決

まりも 2006-01-16 05:27:09 No: 19657 IP: 192.*.*.*

const
  AAA = [1, 3, 5, 7, 9];
  BBB = [2, 4, 6, 8, 10];

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := IntToStr(AAA[0]);   // [エラー]Unit1.pas(35):配列型が必要です
end;

・・・上のようにエラーとなってコンパイルできません。
配列型でなく、集合型でもいいのですが、どちらにしても、セット／アクセスの
方法が知りたいのです。
条件としては、セットについては、関数やプロシジャを使わないで
済ませたいのですが・・。

編集削除

kkk 2006-01-16 07:14:35 No: 19658 IP: 192.*.*.*

>const
> AAA = [1, 3, 5, 7, 9];
はintegerの配列ではありません
配列で初期化するには
const
AAA: array[0..4] of integer = (1, 3, 5, 7, 9);
のようにしますが要素数が必要ですね

編集削除

まりも 2006-01-16 08:27:30 No: 19659 IP: 192.*.*.*

できました。
ははーん、こう言うふうにconst初期値設定するのですね。

kkk 様、ありがとうございました。

編集削除