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.

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

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