VPF::Класс вектора через массив свойств

Beren

Дата 2.6.2011, 14:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 28.3.2011

Репутация: нет
Всего: нет

Друзья, надо реализовать класс вектор с помощью массива свойств. Это мой вариант . Но он не работает (.

Код


unit UTVectors;

interface
   uses SysUtils,Dialogs,Classes ;
   type
   TVector=class
   private
   FList:array of real ;
   protected
function GetMas :real;
public
   property list[ndim: integer]: real read GetMas ;
     end;
implementation
 function TVector.GetMas:real;
    begin
     SetLength(Flist,5);
       for ndim:=0 to 4 do
    A[ndim]:=ndim+1;
   Result:=A[ndim];
   end;

Я хотел бы найти длину вектора, чтобы пользователь вводил только число элементов, и получал длину. После долгих раздумий я понял, что надо использовать динамический массив. Но тут сразу несколько вопросов . Я взял , число элеметов 5. Но как сделать , чтобы пользователь вводил в Edit1 его ? Нашёл пример в интернете про свойства массивы :
3.6.3. Свойства-массивы
Кроме обычных свойств в объектах существуют свойства-массивы (array properties). Свойство-массив — это индексированное множество значений. Например, в классе TDelimitedReader множество элементов, выделенных из считанной строки, удобно представить в виде свойства-массива:

Код


type
  TDelimitedReader = class
    ...
    FItems: array of string;
    ...
    function GetItem(Index: Integer): string;
    ...
    property Items[Index: Integer]: string read GetItem; 
  end;

function TDelimitedReader.GetItem(Index: Integer): string;
begin
  Result := FItems[Index];
end;

Элементы массива Items можно только читать, поскольку класс TDelimitedReader предназначен только для чтения данных из файла.
В описании свойства-массива разрешено использовать только методы, но не поля. В этом состоит отличие свойства-массива от обычного свойства.

И тут же появились другие вопросы. Почему function GetItem(Index: Integer): string; имеет параметр ?. Ведь если она используется для чтения её вид предопределён ? И он без параметров ? В общем, нужна помощь . Спасибо

Это сообщение отредактировал(а) Rrader - 3.6.2011, 10:28

Keeper89

Дата 2.6.2011, 16:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Вот маленькая заготовка такого класса:

Код


unit Unit2;

interface

uses
  SysUtils;

type
  TVector = class
    private
      FItems: array of Double;
      function GetItem(Index: Integer): Double;
    public
      constructor Create(AItems: array of Double);
      destructor Destroy; override;
      property Items[Index: Integer]: Double read GetItem; default;
  end;

implementation

{ TVector }

constructor TVector.Create(AItems: array of Double);
var
  i: Integer;
begin
  SetLength(FItems, Length(AItems));
  for i := Low(AItems) to High(AItems) do
    FItems[i] := AItems[i];
end;

destructor TVector.Destroy;
begin
  SetLength(FItems, 0);
  inherited;
end;

function TVector.GetItem(Index: Integer): Double;
begin
  if Index in [Low(FItems)..High(FItems)] then
    Result := FItems[Index]
  else
    raise Exception.Create('Index is not Valid!');
end;

end.

Пример использования:

Код


procedure TForm1.btn1Click(Sender: TObject);
begin
  with TVector.Create([3, 5.7, 4.23]) do
    try
      ShowMessage(Format('%.2f', [Items[1]]));
    finally
      Free;
    end;
end;

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Beren

Дата 2.6.2011, 16:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 28.3.2011

Репутация: нет
Всего: нет

Спасибо, конечно. Но Вам тот же вопрос . Если GetItem используется для чтения, то её формат -функция без параметра. Тогда почуму она у Вас с параметром ?

Keeper89

Дата 2.6.2011, 16:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Beren, нет, она должна быть с параметром, иначе как определить индекс запрашиваемого элемента?

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Beren

Дата 2.6.2011, 16:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 28.3.2011

Репутация: нет
Всего: нет

Тогда я вообще ничего не понимаю . ТО есть функция в read не обязательно должна быть без параметра ? А почему ж тогда во всех учебниках написано : " Функция чтенения-это функция БЕЗ ПАРАМЕТРА , возвращающее значение того типа, который объявлен для свойства " . Вот чего я никак понять не могу ? Keeper89, объясни пожалуйста.

Keeper89

Дата 2.6.2011, 17:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Цитата(Beren @ 2.6.2011, 16:59

)

Функция чтенения-это функция БЕЗ ПАРАМЕТРА , возвращающее значение того типа, который объявлен для свойства

Где это написано? Автор и т.д.?

А вообще, глянь еще раз внимаьельно на строчку

Код


property Items[Index: Integer]: Double read GetItem;

и почитай про свойства в хелпе Delphi, там все четко написано.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Beren

Дата 2.6.2011, 22:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 28.3.2011

Репутация: нет
Всего: нет

Код


 property Items[Index: Integer]: Double read GetItem; default;

default надо , как я понял для того,чтобы использовать Свойство-массив как основное свойство объекта. Так ? А если го убарать то , как тогда ?

Keeper89

Дата 2.6.2011, 22:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

default нужен, чтобы обращаться к свойству без указания имени свойства:

Код


// т.е. MyVector[0] = MyVector.Items[0]

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Qu1nt

Дата 3.6.2011, 11:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 22
Всего: 50

Keeper89,

Код


type
  TVector = class
  private
    FItems: array of Double;
    function GetItem(Index: Integer): Double;
  public
    constructor Create(AItems: array of Double);
    property Items[Index: Integer]: Double read GetItem; default;
  end;

uses
  RTLConsts;

constructor TVector.Create(AItems: array of Double);
begin
  SetLength(FItems, Length(AItems));
  Move(AItems[0], FItems[0], Length(AItems) * SizeOf(AItems[0]));
end;

function TVector.GetItem(Index: Integer): Double;
begin
  if (Index < 0) or (Index >= Length(FItems)) then
    raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);
  Result := FItems[Index];
end;

Деструктор не нужен.
Используй Move.
Использование множеств здесь неуместно.

Это сообщение отредактировал(а) Qu1nt - 3.6.2011, 15:50

RomanEEP

Дата 3.6.2011, 15:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 424
Регистрация: 18.5.2006
Где: Коломна

Репутация: 1
Всего: 8

а где проверка на то что AItems - пустой и 0 элемента попросту не существует?

--------------------

Электронные экзамены

Qu1nt

Дата 3.6.2011, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 22
Всего: 50

RomanEEP, если массив пустой, ничего никуда копироваться не будет. Дополнительная проверка не нужна.

Keeper89

Дата 3.6.2011, 16:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

А с множествами что не так? )

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Beren

Дата 5.6.2011, 18:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 28.3.2011

Репутация: нет
Всего: нет

Я если я хочу сделать свойство длина вектора , то выдаётся ошибка ( . Исправьте кто сможет Вот мой вариант:

Код


private
      FItems: array of real ;
   function GetModul :real;
        .

        . 
       public
        .
      property Modul  :real read GetModul ;
       end;
implementation
 
constructor TVector.Create(AItems: array of real);
        .       
        .
  function TVector.GetModul: real;
  var
  J:integer;
      begin
      for j := Low(FItems) to High(FItems) do
     Result:=sqrt(FItems(j)*FItems(j));
      Result:=Result+ sqrt(FItems(j)*FItems(j));
    end;
end.

Это сообщение отредактировал(а) Beren - 5.6.2011, 18:08

bems

Дата 9.6.2011, 05:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

Цитата(Keeper89 @ 3.6.2011, 16:34

)

А с множествами что не так? )

может то что это не множество? smile

--------------------

Обижено школьников: 8

Keeper89

Дата 9.6.2011, 08:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Цитата(bems @ 9.6.2011, 05:11

)

может то что это не множество?

Я просто не вижу ничего страшного в такой проверке smile

есть у нее какие-то минусы?

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »