Недоступность значения свойства типа массив

← →
AZ © (2004-10-30 07:22) [0]

Объясните, пожалуйста, почему при установке свойства AuxParams
из другого модуля при входе в процедуру SetAuxParams массив недоступен?
(В отладке при установке курсора на .Name сообщение "FAuxParams[Index].Name=Inaccessible value)
Как следствие недоступности, Access violation...

type TAuxParam = record Name: string[63]; Value: single; Module: integer; Channel: integer; Use: boolean; end; // Форма создается в Runtime TfrmAuxParams = class(TForm) . . . procedure btAuxExitClick(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } procedure SetAuxParams(Index: integer; const Value: TAuxParam); function GetAuxParams(Index: integer): TAuxParam; public { Public declarations } FAuxParams: array[0..3] of TAuxParam; property AuxParams[Index: integer]: TAuxParam read GetAuxParams write SetAuxParams; end; . . . procedure TfrmAuxParams.SetAuxParams(Index: integer; const Value: TAuxParam); begin FAuxParams[Index].Name:=Value.Name; //------------------^^^ Место курсора при трассировке . . end;

← →
AZ © (2004-10-30 07:54) [1]

В догонку.
Если в Project>Options>Forms установить frmAuxParams в Autocreate, то все ОК. Сейчас стоит в Enable forms (мне нужно создавать форму в Runtime).
В чем фокус?

← →
DiamondShark © (2004-10-30 12:00) [2]

Как создаётся форма?
Чему равен Index?

← →
AZ © (2004-10-30 20:04) [3]

>DiamondShark © (30.10.04 12:00) [2]
>Как создаётся форма?
>Чему равен Index?

Как обычно.
Индекс нормальный, в пределах(равен 0).

AZ © (30.10.04 20:04) [3]

Ты будешь удивлен, но у меня все прекрасно работает:

procedure TForm1.Button1Click(Sender: TObject); const MyAuxParam: TAuxParam = (Name: "AuxParam"; Value: 0.0; Module: 0; Channel: 0; Use: true); begin with TfAuxParams.Create(Application) do begin AuxParams[0] := MyAuxParam; AuxParams[1] := MyAuxParam; AuxParams[2] := MyAuxParam; Show; end; end;

Остальной код скопирован из твоего поста.

Кстати, совет, объявить поле FAuxParams в разделе private :)

Спасибо!

Недоступность значения свойства типа массив Найти похожие ветки