Как правильно выводить значения свойств через массив. , Как правильно выводить значения свойств через массив.

[SkAndriy]

Добрый вечер!

Создан компонент по такой схеме:

unit MyComponent;
 
interface
 
uses Windows, Messages, SysUtils, Variants, Classes, Controls;
 
type
  TMyComponent = class(TComponent)
  private
    fIndex : Integer;
    fh1: Double;
    fh2 : Double;
    fh3 : Double;
    fh4 : Double;
    fh5 : Double;
    fh6 : Double;
    fh7 : Double;
    function GetIndex : Integer;
    procedure SetIndex(Value : Integer);
    function GetElement(Index : Integer): Double;
    function GetDataElement(Index : Integer): Double;
  protected
    //...............
  public
    constructor Create(AOwner: TComponent);override;
    destructor Destroy;override;
    function Oma(U : Integer): Double;
    procedure Assign(Source: TPersistent);
    property Element[Index : Integer] : Double read GetElement;
  published
    property IndexElement : Integer read GetIndex write SetIndex;
    property h1 : Double index 0 read GetDataElement write fh1;
    property h2 : Double index 1 read GetDataElement write fh2;
    property h3 : Double index 2 read GetDataElement write fh3;
    property h4 : Double index 3 read GetDataElement write fh4;
    property h5 : Double index 4 read GetDataElement write fh5;
    property h6 : Double index 5 read GetDataElement write fh6;
    property h7 : Double index 6 read GetDataElement write fh7;
  end;
 
  procedure Register;
 
implementation
 
{ TMyComponent }
 
function TMyComponent.Oma(U : Integer): Double;
begin
  Result := 100/Random(U);
end;
 
procedure TMyComponent.Assign(Source: TPersistent);
begin
  if Source is TMyComponent then
  begin
    fh1 := TMyComponent(Source).h1;
    fh2 := TMyComponent(Source).h2;
    fh3 := TMyComponent(Source).h3;
    fh4 := TMyComponent(Source).h4;
    fh5 := TMyComponent(Source).h5;
    fh6 := TMyComponent(Source).h6;
    fh7 := TMyComponent(Source).h7;
 end
 else inherited Assign(Source);
end;
 
function TMyComponent.GetElement(Index : Integer): Double;
var
  i : integer;
begin
  Result := 0;
  for i:= 0 to 6 do
  begin
  if (Index<=0) or (Index>7) then
   raise Exception.Create( 'Номер в массиве должен быть числом от 0 до 6')
  else
    Result := i;
  end;
end;
 
function TMyComponent.GetDataElement(Index : Integer): Double;
begin
  Result := 0;
  case Index of
    0 : Result := Oma(fIndex);
    1 : Result := Oma(fIndex);
    2 : Result := Oma(fIndex);
    3 : Result := Oma(fIndex);
    4 : Result := Oma(fIndex);
    5 : Result := Oma(fIndex);
    6 : Result := Oma(fIndex);
  end;
end;
 
constructor TMyComponent.Create(AOwner: TComponent);
begin
  inherited;
end;
 
destructor TMyComponent.Destroy;
begin
  inherited;
end;
 
function TMyComponent.GetIndex : Integer;
begin
  Result := FIndex;
end;
 
procedure TMyComponent.SetIndex(Value : Integer);
begin
  if Value<>fIndex then
    fIndex := Value;
end;
 
procedure Register;
begin
  RegisterComponents('test', [TMyComponent]);
end;
 
end.

Вопрос: как можно и дизайнтайме показать значения свойств property h1, property h2, property h3, property h4, property h5, property h6, property h7 в Инстпекторе Объектов и в realtime выводить значения этих свойств не по одному, а через массив, используя конструкцию for i :=0 to High(массив) do с доступом к каждому из property h1, property h2, property h3, property h4, property h5, property h6, property h7.

Спасибо.

Сообщение отредактировано: SkAndriy - 29.08.10, 16:18

[Keeper89]

Цитата SkAndriy @ 29.08.10, 16:18

как можно и дизайнтайме показать значения свойств property h1, property h2, property h3, property h4, property h5, property h6, property h7 в Инстпекторе Объектов

разве при объявлении в секции published они уже не должны отображаться?

Цитата SkAndriy @ 29.08.10, 16:18

в realtime выводить значения этих свойств не по одному, а через массив, используя конструкцию for i :=0 to High(массив) do с доступом к каждому из property h1, property h2, property h3, property h4, property h5, property h6, property h7

можно открыть функцию GetDataElement, и, если кол-во h всегда постоянно завести константу в классе, для которой использовать цикл for:

for i := 1 to H_COUNT do
  Showmessage(FloatToStr(GetDataElement(i-1)));

Хотя в таком случае вся структура компонента кажется странноватой.

Сообщение отредактировано: Keeper89 - 29.08.10, 16:38

[SkAndriy]

Да они видны, просто мне нужно их вывести в виде массива. Спасибо.

[SkAndriy]

Поробовал вот такую конструкцию, но она не работает тоже:

unit MyComponent;
 
interface
 
uses Windows, Messages, SysUtils, Variants, Classes, Controls;
 
type
  TMyComponent = class(TComponent)
  private
    fIndex : Integer;
    fh1: Double;
    fh2 : Double;
    fh3 : Double;
    fh4 : Double;
    fh5 : Double;
    fh6 : Double;
    fh7 : Double;
   function  GetMyFunc(Index: Integer): Double;
  protected
    //...............
  public
    constructor Create(AOwner: TComponent);override;
    destructor Destroy;override;
    procedure Assign(Source: TPersistent);
    property MyArray[Index: Integer] : Double read GetMyFunc;
  published
    property h1 : Double index 0 read GetMyFunct write fh1;
    property h2 : Double index 1 read GetMyFunc write fh2;
    property h3 : Double index 2 read GetMyFunc write fh3;
    property h4 : Double index 3 read GetMyFunc write fh4;
    property h5 : Double index 4 read GetMyFunc write fh5;
    property h6 : Double index 5 read GetMyFunc write fh6;
    property h7 : Double index 6 read GetMyFunc write fh7;
  end;
 
  procedure Register;
 
implementation
 
{ TMyComponent }
 
function TMyComponent.Oma(U : Integer): Double;
begin
  Result := 100/Random(U);
end;
 
procedure TMyComponent.Assign(Source: TPersistent);
begin
  if Source is TMyComponent then
  begin
    fh1 := TMyComponent(Source).h1;
    fh2 := TMyComponent(Source).h2;
    fh3 := TMyComponent(Source).h3;
    fh4 := TMyComponent(Source).h4;
    fh5 := TMyComponent(Source).h5;
    fh6 := TMyComponent(Source).h6;
    fh7 := TMyComponent(Source).h7;
 end
 else inherited Assign(Source);
end;
 
function TMyComponent.GetMyFunc(Index : Integer): Double;
begin
  if (Index >= 0) and (Index <= 6) then
   case Index of
    0 : Result := Oma(fIndex);
    1 : Result := Oma(fIndex);
    2 : Result := Oma(fIndex);
    3 : Result := Oma(fIndex);
    4 : Result := Oma(fIndex);
    5 : Result := Oma(fIndex);
    6 : Result := Oma(fIndex);
  end
  else
    Result := -1;
end;
 
constructor TMyComponent.Create(AOwner: TComponent);
begin
  inherited;
end;
 
destructor TMyComponent.Destroy;
begin
  inherited;
end;
 
procedure Register;
begin
  RegisterComponents('test', [TMyComponent]);
end;
 
end.

Подскажите где ошибка?

Спасибо

[Keeper89]

Я не совсем Вас понимаю, покажете картинку-пример, то такое "вывести в виде массива"?

[SkAndriy]

Задача следующая:

В realtime значения полей h1-h7 выводить не по отдельности, например, пременная1 := MyComponent1.h1 и так далее пременная7 := MyComponent1.h7, а через некий массив:

for i := 0 to 6 do
myarray[i] := MyComponent1.arrayvalueaofproperties1_7[i]

Теперь понятно показал?

Спасибо

Сообщение отредактировано: SkAndriy - 29.08.10, 18:28

[Демо]

property CArray[index: integer]: Double read GetArray write SetArray;

Сообщение отредактировано: Демо - 29.08.10, 18:47

[SkAndriy]

Это понятно, а как CArray поймет, что нужно ему выводить? Что именно значения полей h1-h7? Вот в чем вопрос. Спасибо

Сообщение отредактировано: SkAndriy - 29.08.10, 18:54

[Демо]

Добавь эту строку в секцию public и нажми Ctrl-Shift-C...

Добавлено 29.08.10, 18:59
Так массив или поля всё-таки?

Добавлено 29.08.10, 19:00
Изврат какой-то.

case index of
  0: Result := h0;
  1: Result := h2;
  ...
  7:  Result := h7;
else Result := -1;
end;

[Keeper89]

Цитата Демо @ 29.08.10, 18:58

Так массив или поля всё-таки?
Изврат какой-то.

собственно и я о чем, в одном месте хочется поля, в другом - массив.

Судя по задаче не надо никаких h1, h2,..,h7, а нужен массив h.:

...
const H_COUNT = 7;
...
private
  Fh: array[1..H_COUNT] of Double;
  function GetArray(Index: Integer): Double;
  procedure SetArray(Index: Integer; const Value: Double);
...
published
  property H[index: integer]: Double read GetArray write SetArray;
 
...
implementation
...
 
function MyComponent.GetArray(Index: Integer): Double;
begin
  Result := Fh[Index];
end;
 
procedure MyComponent.SetArray(Index: Integer; const Value: Double);
begin
  Fh[Index] := Value;
end;

Как-то так. Стоит, наверное, еще добавить и проверку Index'а.

Сообщение отредактировано: Keeper89 - 29.08.10, 19:53

[SkAndriy]

Спасибо за помощь. все получилось.