ВходНаше всё Теги codebook 无线电组件 Поиск Опросы Закон Пятница
12 июля
О смысле всего сущего0xFF Средства и методы разработки Мобильная и беспроводная связь Блошиный рынокОбъявления
МикроконтроллерыPLD, FPGA, DSP AVRPICARM, RISC-VТехнологии Кибернетика, автоматика, протоколы Схемы, платы, компоненты
440813 Топик полностью
Гyдвин, волшебник (11.09.2013 15:48 - 15:51, просмотров: 74) ответил Evgeny_CD на Если можно, я бы еще очень просил скриншоты прикладывать. Любопытно глянуть индивидуальные стили написания кода.
Ды как два пальца ;)  with TreeView1.Items do begin n:=0; Clear; { remove any existing nodes } AddObject(nil, ' Сеть SimCon Giga',@mass_rec[0]); { Add a root node } mass_rec[0].Type_contr:=T_N; item[0].ImageIndex:=4; item[0].SelectedIndex:=4; for i:=1 to Devices do begin if mass_rec[i].Type_contr=T_E then begin AddChildObject(item[0],' GigaBase ('+IPToStr(mass_rec[i].IP) +')',@mass_rec[i]); if (mass_rec[i].Key_GigaBase = 0) then begin item[i].ImageIndex:=9; item[i].SelectedIndex:=9; end else begin item[i].ImageIndex:=7; item[i].SelectedIndex:=7; end; n:=i; end; if mass_rec[i].Type_contr=T_B then begin AddChildObject(item[0],' GigaBase ЗАГРУЗЧИК ('+IPToStr(mass_rec[i].IP) +')',@mass_rec[i]); item[i].ImageIndex:=10; item[i].SelectedIndex:=10; end; if mass_rec[i].Type_contr=T_S then // T_S begin AddChildObject(item[n],' GigaStamp ',@mass_rec[i]); item[i].ImageIndex:=8; item[i].SelectedIndex:=8; end; end; TreeView1.AlphaSort; // TreeView1.SaveToFile('1111.txt'); Vsego.Caption:= IntToStr(Devices); Item[0].Selected:=true; TreeView1.FullExpand; showfirst; end;
Ответить