|
#1
|
|||
|
|||
TListView
Уважаемые,
На форме имеется компонент ListView(name=nlist) Данный компонент содержит 3 закладки. Как мне добавить во вторую закладку в ячейку значение='Задание'? |
#2
|
|||
|
|||
Ну во первых не закладки а дитятки.
t.Items.AddChild(t.Items.Item[1],'text') |
#3
|
|||
|
|||
Наверно мы друг друга не поняли) У меня нет такой функции AddChild
|
#4
|
||||
|
||||
Код:
ListView1.Items.Add.SubItems.Add('Задание'); Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#5
|
|||
|
|||
Код:
unit unit_ofice; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, XPMan, ComCtrls, StdCtrls; type Tfrm_ofice = class(TForm) nlist: TListView; XPManifest1: TXPManifest; tabc: TTabControl; Button1: TButton; procedure FormCreate(Sender: TObject); procedure FormActivate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var frm_ofice: Tfrm_ofice; f:TStringList; s:String; implementation uses unit_today; {$R *.dfm} procedure nlist_reload; begin f:=TStringList.Create; f.LoadFromFile('note.txt'); s:=copy(f.Strings[0],1,8); frm_ofice.nlist.Items[1].SubItems.Add(s); f.Free; end; procedure Tfrm_ofice.FormCreate(Sender: TObject); begin {Выравниваем стобцы в списке заданий} nlist.Column[0].Width:=100; nlist.Column[1].Width:=100; nlist.Column[2].Width:=285; nlist.Column[3].Width:=150; end; procedure Tfrm_ofice.FormActivate(Sender: TObject); begin {Показываем список заданий на сегодня} {frm_today.ShowModal;} end; procedure Tfrm_ofice.Button1Click(Sender: TObject); begin nlist_reload; end; end. Ошыбку выдает |
#6
|
|||
|
|||
Какую ошибку?
При компиляции или при выполнении? Если при выполнении, то на какой строке? На вскидку: 1. Файл существует? (f.LoadFromFile('note.txt') 2. А он заполнен хоть чем-то или пустой? (s:=copy(f.Strings[0],1,8) 3. А в ListView есть как минимум 2 строки? (frm_ofice.nlist.Items[1].SubItems.Add(s) Учимся пользоваться дебаггером. Если программа падает, то обычно отладчик устанавливается на строку, в которой произошел сбой. Идем в начало теста пролемной функции/процедуры, ставим точку останова (F5) и запускаем снова и далее идем пошагово (F8), проверяя значения всех переменных (Ctrl+F7) и существование объектов, внещних по отношению к коду (файлы, БД и т.д.). |
#7
|
|||
|
|||
Сорри за смайлики - случайно получилось...
|
#8
|
|||
|
|||
Файл имееться ( не пустой), в ЛистБоксе минимум 2 строки
|
#9
|
|||
|
|||
Ну так когда происходит ошибка? Как я понял при выполнении.
На какой строке останавливается отладчик? |