Скачать: CL | DM;

TListView - заполнение ячейки текстом   Найти похожие ветки 

← →
mufan   (2006-04-22 08:48) [0]

Доброе утро!
Проблема не понятная.
Есть компонент ListView: TListView!

Если я в онклике для какой-то кнопки пишу
ListView.Items[n].SubItems[m]:="gfhgfhfg";
(где m и n корректны), то все отлично работает - в поле появляется текст.

НО если я пишу в СВОЕЙ процедуре это
ListView.Items[n].SubItems[m]:="gfhgfhfg";
то выдает ошибку - фатальную - при запуске на этом самом месте. Может там что-то неопределено или что я уже не знаю...
Вот код проги:

type
 Tmainform = class(TForm)
   MainMenu1: TMainMenu;
   N1: TMenuItem;
   ListView: TListView;
   listimage_pos: TImageList;
 procedure ListViewCustomDrawSubItem(Sender: TCustomListView;
     Item: TListItem; SubItem: Integer; State: TCustomDrawState;
     var DefaultDraw: Boolean);
   procedure N3Click(Sender: TObject);
   procedure FormCreate(Sender: TObject);
...
 procedure FormShow(Sender: TObject);
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
//    procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
 procedure FillTable(sort_key: string);
 procedure FillField(s:string;it,subit:integer);
   { Public declarations }
 end;

...

{$R *.dfm}

procedure Tmainform.FillField(s:string;it,subit:integer);
begin
//здесь тоже выдает ошибку
mainform.ListView.Items[2].SubItems[2]:="hjkhj";
end;

procedure Tmainform.FillTable(sort_key: string);
var
i,j:byte;
tmp:TTeam;
tmp1:integer;
begin

...
//здесь выдает ошибку
ListView.Items[10].SubItems[10]:="khjk";
//если вызвать другую процедуру, то там тоже
FillField(s,it,subit);
end;

end;   //end of FillTable(...);

...

Помогите пожалуйста!

---

← →
Gero ©   (2006-04-22 12:07) [1]

SubItems[n] не существует, нужно делать Add.

А вобще это телепатия, приведи текст ошибки.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.04 c