"Родительский" вопрос

[mixer94]

У меня такой вопрос к вам...
Этот кусок кода вставляет запись в ListView.Во второй столбец вставляет любой компонент...

const
pbColumnIndex = 1;
pbMax = 100;
var
li : TListItem;
lv : TListView;
pb : TImage;
pbRect : TRect;
begin
lv := ListView1;
li := lv.Items.Add;
li.Caption := 'Item ' + IntToStr(lv.Items.Count);
pb := TImage.Create(nil);
//Настройка компонента
pb.Name := 'ListImg1';
pb.OnClick := ListImg1Click;
//
pb.Parent := lv;
li.Data := pb;
pbRect := li.DisplayRect(drBounds);
pbRect.Left := pbRect.Left +
lv.Columns[-1 + pbColumnIndex].Width;
pbRect.Right := pbRect.Left +
lv.Columns[pbColumnIndex].Width;
pb.BoundsRect := pbRect;
listheight := False;

Вопрос такой: если к примеру я захочу поменять картинку из другой процедуры как мне это сделать?
Т.е. выполнение команды ListImg1.Picture.LoadFromFile('...' ) приводит к ошибке...
Я пока начинающий программист, прошу не ругать)) - многово не знаю...
Да, и ещё если не сложно поясните что делает каждая строка кода, и нет ли где лишних строк...

[Mixasik]

Потому, что pb во-первых, локальная переменная и живет только во время выполнения данной процедуры, а во-вторых, как мне кажется нельзя к ней обратиться по имени ListImg1, надо TImage(FindComponent('ListImg1')).p icture.LoadFromFile('...');
Даже не могу тут пояснить, что-то разумное, так как не пойму смысла всего вышеизложенного.

[mixer94]

Сообщение от Mixasik

Потому, что pb во-первых, локальная переменная и живет только во время выполнения данной процедуры, а во-вторых, как мне кажется нельзя к ней обратиться по имени ListImg1, надо TImage(FindComponent('ListImg1')).p icture.LoadFromFile('...');
Даже не могу тут пояснить, что-то разумное, так как не пойму смысла всего вышеизложенного.

Спасибо за ответ, смысла я сам не понимаю так как не я писал это...ну фик с ним..
TImage(FindComponent('ListImg1')).p icture.LoadFromFile('...') работать тоже отказывается..
А можно сделать глобальный массив и обращаться к нему???

[Mixasik]

Сообщение от mixer94

Спасибо за ответ, смысла я сам не понимаю так как не я писал это...ну фик с ним..
TImage(FindComponent('ListImg1')).p icture.LoadFromFile('...') работать тоже отказывается..
А можно сделать глобальный массив и обращаться к нему???

Можно проверять if (FindComponent('ListImg1') <> nil) then TImage(FindComponent('ListImg1')).p icture.LoadFromFile('...')
То есть если компонент найдет то работаем с ним. Этот метод в любом случае должен работать с глобальной переменной. Да массив создать можно и работать уже с ним, не забывая создать объекты в массиве, ато будет access violation.

[mixer94]

Сообщение от Mixasik

Можно проверять if (FindComponent('ListImg1') <> nil) then TImage(FindComponent('ListImg1')).p icture.LoadFromFile('...')
То есть если компонент найдет то работаем с ним. Этот метод в любом случае должен работать с глобальной переменной. Да массив создать можно и работать уже с ним, не забывая создать объекты в массиве, ато будет access violation.

какая разница существует ли объект...по идее существовать должен...
да ладно, проблема решена - limgs : array[0..255] of TImage и всё ок....

[mutabor]

все правильно, только массив лучше динамический