Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.06.11;
Скачать: CL | DM;

Вниз

=> Странная штука с TreeView, не проходи мимо   Найти похожие ветки 

 
Николай Владимирович   (2006-05-22 15:39) [0]

Пытаюсь загрузить данные из файла(структура 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) [1]

1. Положи на форму Memo1:TMemo.
2. Выполни следующий код:

Memo1.Clear;
for i:=0 to TreeList.Count-1 do
Memo1.Lines.add(pNodeOptions(treeList[i]).nameT);


Что видишь в Memo?



Страницы: 1 вся ветка

Текущий архив: 2006.06.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
2-1148658284
cardexc
2006-05-26 19:44
2006.06.11
bpl файл компонента


9-1130503651
Булат Шакиров
2005-10-28 16:47
2006.06.11
Решил попробовать UnDelphiX. При установке на Delphi 7 дает ошибк


6-1137494084
Volf_555
2006-01-17 13:34
2006.06.11
Как автоматически из моей программы входить в почтовик?


2-1148362400
chizra
2006-05-23 09:33
2006.06.11
Можно ли функцией FileExists опредеоить существование директории?


2-1148628687
ttt_111
2006-05-26 11:31
2006.06.11
Вопрос по округлению.