=> Странная штука с TreeView, не проходи мимо
Николай Владимирович © (2006-05-22 15:39:00)
Пытаюсь загрузить данные из файла(структура 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;
Ega23 (2006-05-22 16:01:00) [1]
1. Положи на форму Memo1:TMemo.
2. Выполни следующий код:
Memo1.Clear;
for i:=0 to TreeList.Count-1 do
Memo1.Lines.add(pNodeOptions(treeList[i]).nameT);
Что видишь в Memo?
Наверх 
ЧАТ |
Орешник |
|
