謎のエラー

解決

komin 2007-04-22 03:03:03 No: 25879

実数型の配列定数を定義しようとしました。

const n : array[0..8] of single

これがあるだけで、プロジェクトの構文チェックを行うとDelphiが例外を吐いて止まっていまい，以後そのユニットはリードオンリーになってしまって編集できません。どなたかご存じの方がいらっしゃればよろしくお願い致します。

かず 2007-04-22 05:38:15 No: 25880

n : array[0..8] of single は const ですか？

かず 2007-04-22 05:58:10 No: 25881

type
nn = array[0..2] of single;

const
n : nn = (1,2,3); //配列に1,2,3をセット

procedure TForm3.FormShow(Sender: TObject);
begin
  Label1.Caption := FormatFloat('##', n[0]);
  Label2.Caption := FormatFloat('##', n[1]);
  Label3.Caption := FormatFloat('##', n[2]);
end;

komin 2007-04-23 19:49:59 No: 25882

かずさんの二つめに書かれている方法もだめでした。同じ現象が起きました。なんでだろう？

cocomo 2007-04-23 22:13:09 No: 25883

私の開発環境では普通に動きます。Delphiのバージョンがわかればどうなのかな？
私はDelphi7でコンパイル、実行しました。
Delphiのバージョンが古いとなるかもしれません。

TS 2007-04-24 21:48:08 No: 25884

自分のパソコンにまだDelphi6が有るのを忘れてました。
でDelphi6でも下記のコードは問題ありせん
const n : array[0..3] of single =(123.35,333,1,444);
何か他の処で問題があるのではないでしょうか。
新規のプログラムでかずさんのコードだけでどうてしょか。

komin 2007-04-25 00:09:49 No: 25885

バージョンはDelphi6 Pro.です。新規にプロジェクトを起こして試してみます。今問題点は代替え方法で回避して他のところをいじっているので，一段落したら試して報告します。

komin 2007-05-07 23:29:34 No: 25886

type
nn = array[0..2] of single;

const
n : nn = (1,2,3); //配列に1,2,3をセット

上記のコードだと大丈夫でした。今後はconst n : array[0..3] of single =〜のようなコードが必要な場合は上記のようにします。ありがとうございました。