|
Вопрос # 483/ вопрос открыт / |
|
Скажите, пожалуйста, почему у меня после такого кода на первом месте появляется Item с индексом "3", значком как у Item[0] и без Caption?
Приложение: Переключить в обычный режим- var
- bit: TBitmap;
- i,cou:integer;
- begin
- cou := 3
- if cou<>0 then
- begin
- for i:= 0 to cou-1 do
- begin
- bit := TBitmap.Create;
- bit.LoadFromFile(ExtractFilePath(Application.ExeName)+('%d.bmp',[I-1]));
- Form1.ImageList2.Insert(i,Bit,nil);
- Form1.ListView1.Items.BeginUpdate;
- Form1.ListView1.Items.AddItem(nil, i);
- Form1.ListView1.Items.Item[i].ImageIndex:=i;
- Form1.ListView1.Items.Item[i].Caption:=i;
- Form1.ListView1.Items.EndUpdate;
- bit.Free;
- end;
- end;
- end;
 |
Вопрос задал: Иван-488 (статус: Посетитель)
Вопрос отправлен: 15 апреля 2007, 18:06
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Пришлось отформатировать код в редакторе :).
1) Строка bit.LoadFromFile(ExtractFilePath(Application.ExeName)+('%d.bmp',[I-1]));
Вероятно, здесь пропущена функция Format().
2) Строка Form1.ListView1.Items.AddItem(nil, i);
Что добавляется в ListView?
3) Строка Form1.ListView1.Items.Item.Caption:=i;
После Items или Item должен стоять индекс в квадратных скобках, а также свойство Caption имеет тип string, а переменная i - Integer, это ж параметр цикла.
Компилятор просто бы выдал ошибки по коду.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 16 апреля 2007, 08:41
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
