Показать сообщение отдельно
  #1  
Старый 22.05.2006, 15:35
Zloy_nicK Zloy_nicK вне форума
Прохожий
 
Регистрация: 19.05.2006
Сообщения: 2
Репутация: 10
Стрелка => Странная штука с 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;
Ответить с цитированием