Списки записей

[Utkin]

После долгого времяпровождения за монитором никак не найду ответ на простой вопрос:
Имеется список (в смысле TList<запись>) элементами которого являются записи с простыми типами (строки и числа). Чтение данных проглатывает без проблем, однако внесение данных вызывает ошибку.
Например:

Nodes[count].Id:=NewId();

Здесь Id обычный Интеджер.
Ошибка:

[dcc32 Error] TreeS.pas(461): E2064 Left side cannot be assigned to

Это при том, что ошибка возникает на этапе компиляции, то есть всякие там ошибки инициализации отметаются сходу.
Причем двумя строками ниже код:

result:=Nodes[count].Id;

проблем не вызывает.
Итак, какие есть предположения?

[ReportCube]

Нсколько помню, у TTreeNodes свойство ID только для чтения

[Аватар]

Не совсем понял, но похоже на проблему записи в элементы Record-свойства.

Так не прокатит (mm - TPoint):

MyComponent.mm.X:=0;

А так пожалуйста (если не Get-метод для чтения)

with MyComponent.mm do X:=0;

или (так всегда Ok)

mm1:=MyComponent.mm;
mm1.X:=0;
MyComponent.mm:=mm1;

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

Так ошибка четко говорит, что запись в

Nodes[count].Id

невозможна.

А невозможна обычно по 2 причинам:
1. Nodes[count] - это константа, что врятли
2. Свойство id - не имеет write действия, т.е. не так:

property id:Integer read fId write fId;

а так:

property id:Integer read fId;

Можете показать объявление типа "запись"?

[Utkin]

Можете показать объявление типа "запись"?

// Описание узла
type
    TTreeSNode=record

            Name:     String;                 // Имя данного узла
            Id:       Integer;                // Уникальный идентификатор узла
            Childs:   TList<Integer>;         // Список идентификаторов дочерних узлов
            Value:    String;                 // Текстовое значение узла
    end;

Nodes:      TList<TTreeSNode>;      // Список всех узлов

Нсколько помню, у TTreeNodes свойство ID только для чтения

Это мои ноды, и там будет так как я хочу, а не только для чтения.

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

// Описание узла

Попробуйте так:

type
TTreeSNode=record
private
fId:Integer;
public
Name:String;
class property Id:Integer read fId write fId;
Childs: TList<Integer>;
Value: String;
end;

В плане кода могу посоветовать следующее:

Nodes[count].Id:=NewId();

Похоже вы новую ветвь строите и присваиваете ей идентификатор и имя, так не лучше ли это в конструкторе делать?

type
    TTreeSNode=record
     private
       fName:string;
       fId:Integer;
     public
        Name:String;
        class property Id:Integer read fId;
        Childs:   TList<Integer>;
        Value:    String;
        class constructor Create(aName:string= ''; const aId:Integer = -1);
    end;
...
 
class constructor TTreeSNode.Create(aName:string= ''; const aId:Integer = -1);
begin
 if aId = -1 then
 fId:=NewId else
 fId := aId;
 fName:=aName;
end;

так удобнее(ну во всяком случае для меня). Часто практикую идентификацию объектов в списках по их id.
Авось и вам поможет =)

            Childs:   TList<Integer>;         // Список идентификаторов дочерних узлов

Может правильнее использовать список указателей на ^TTreesNode?

P.S. Можно ещё в исходниках VirtualTrees покопаться.

[spamer]

Собственно хранить нужно указатели на записи, ибо запись это не reference тип, а value. А список хранит всего лишь ссылку на объект, но не сам объект.
Подробнее можно почитать вот по этим ссылкам - 1, 2.