|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
=> Странная штука с TreeView, не проходи мимо
Пытаюсь загрузить данные из файла(структура NodeOptions) в св-во
data каждого элемента компонента TreeView. Загрузил просто дерево из файла,а потом проверяю имя текст элемента TreeView с именем из файла, если true, то заношу в data структуру из контейнера. Но пока это всё тока в теории! При сравнении имен(элемента treeView и из контейнера),получается false, странно!? Подскажите пожалуйста что не так? PnodeOptions=^nodeOptions; //Указатель на структуру типа nodeOptions NodeOptions=record way:string[255]; //Путь к файлу в БД topic nameT:string; // Имя элемента Aindex:integer; //абсолютный индекс элемента treeView end; treeList:tlist; //Контейнер для NodeOptions procedure TMainForm.FormShow(Sender: TObject); var i,j:integer; begin //Присваивание данных элементу совпадающим с именем nameT из структуры for i:=0 to treeView1.Items.Count-1 do for j:=0 to TreeList.Count-1 do if treeView1.Items.Item[i].Text=pNodeOptions(treeList[j]).nameT then begin treeView1.Items.Item[i].Data:=treeList.Items[j]; showMessage ('Успешно'); end; end; end; end; |
#2
|
|||
|
|||
Мне кажется, что так pNodeOptions(treeList[j])^.nameT будет правильнее
Caecus non indicat de colore http://www.proedd.com |