Left side cannot be assigned to в Record

[Человек_Борща]

Доброго времени суток!

Пишу свой класс.

...
type
  TTaskData = record
....
  end;
  PTaskData = ^TTaskData;
...
  TTasksList = class(TObjectList)
  private
...
    function GetTask(Indx: integer): TTask;
    function GetTaskData(Indx:Integer):TTaskData;
...
  public
..
    property Tasks[Indx: integer]: TTask read GetTask;
    property TasksData[Indx:integer]: TTaskData read GetTaskData;
..


..

function TTasksList.GetTask(Indx: integer): TTask;
begin
    Result := (Items[Indx] as TTask);
end;

function TTasksList.GetTaskData(Indx: Integer): TTaskData;
begin
Result:=Tasks[Indx].TaskData;
end;

нужно чтобы GetTaskData могло также писать в возвращаемую структуру... собственно как?

var
  i: integer;
begin
  for i := 0 to Count - 1 do
  begin
    if TasksData[i].ActiveTask then
    begin
    TasksData[i].ActiveTask:=false;

[DCC Error] TasksManagerClass.pas(1574): E2064 Left side cannot be assigned to

Помогите пожалуйста=) Голова уже не варит...

[TinMan]

Что-нибудь типа такого?

    procedure SetTaskData(Indx:Integer; Value: boolean);
...
  public
..
    property TasksData[Indx:integer]: TTaskData read GetTaskData write SetTaskData;

[Человек_Борща]

Нет не вариант.
GetTaskData - возвращает тип record(и все чтовнутри него).

GetTaskData аналог:
GetTask[i].TaskData, который позволяет делать:

Чтение из record:

<ParamOne>:=GetTask[i].TaskData.<ParamTwo>;

и запись в record

GetTask[i].TaskData.<ParamTwo>:=<ParamOne>;

Хотелось бы иметь что-то такое:

<ParamOne>:=GetTaskData[i].<ParamTwo>;

GetTaskData[i].<ParamTwo>:=<ParamOne>;

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

[Serge_Bliznykov]

имхо, TinMan дело говорит.

посмотрите:
TasksData[i].ActiveTask:=false;

смотрим TasksData:

property TasksData[Indx:integer]: TTaskData read GetTaskData;

т.е. оттуда можно только ЧИТАТЬ! писать в TaskData вы не разрешили.
как разрешить - предложил TinMan

[Аватар]

В GetTaskData не к свойству обращайтесь (TasksData[i]) при записи. а непосредственно к массиву, где-то он же описан в компоненте (Tasks)

[Человек_Борща]

Serge_Bliznykov, я знаю что там только чтение. Былабы запись, тема вообще не существовала.
последовал совету TinMan'а.

 property TasksData[Indx:integer]: TTaskData read GetTaskData write SetTaskData;
...
procedure TTasksList.SetTaskData(Indx: Integer; aNewData: TTaskData);
begin
//Tasks[indx] возвращаетмне TTask под заданным номером indx, откуда есть деступ ко всему в TTask 
Tasks[indx].TaskData:=aNewData;
end;

Ошибка таже..

Чего я хочу добиться....

var
 s:string;
 b:boolean;
 i:integer;
 w:word;
 dw:DWORD;
 cI:integer;
 {
 и ещё over 9000 др. типов
}
begin
 for cI:=0 to Count -1 do
 begin
 GetTaskData[cI].tdS:=s;
 GetTaskData[cI].tdB:=b;
 GetTaskData[cI].tdI:=i;
 GetTaskData[cI].tdw:=w;
 GetTaskData[cI].tddw:=dw;
 end;
end;

в TTaskData = record
все что угодно..

не писать же мне для всех типов свой SetTaskData

[JUDAS]

не писать же мне для всех типов свой SetTaskData

выдержка из справочной системы делфи:

type
  TRectangle = class
  private
    FCoordinates: array[0..3] of Longint;
    function GetCoordinate(Index: Integer): Longint;
    procedure SetCoordinate(Index: Integer; Value: Longint);
  public
    property Left: Longint index 0 read GetCoordinate write SetCoordinate;
    property Top: Longint index 1 read GetCoordinate write SetCoordinate;

    property Right: Longint index 2 read GetCoordinate write SetCoordinate;
    property Bottom: Longint index 3 read GetCoordinate write SetCoordinate;
    property Coordinates[Index: Integer]: Longint read GetCoordinate write SetCoordinate;
    ...
  end;

[Человек_Борща]

можно пожалуйста чуть, подробнее?
Что я должен тут увидеть?

[JUDAS]

в чём суть вопроса? нужно создать возможность записи отдельного поля записи через один метод или запись в элемент массива?

[GunSmoker]

Запись <> класс.