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

解決

まりも 2006-01-16 14:27:09 No: 19657

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 16:14:35 No: 19658

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

まりも 2006-01-16 17:27:30 No: 19659

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

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