Здравствуйте, ekamaloff, Вы писали:
E>В дизайнере формы создай у ListView три столбца (свойство Columns), потом:
E>E>procedure TSomeForm.FormCreate(Sender: TObject);
E>begin
E> // Добавляем первую строку
E> with ListView.Items.Add() do begin
E> Caption := 'Текст первого столбца первой строки';
E> SubItems[0] := 'Текст второго столбца первой строки';
E> SubItems[1] := 'Текст третьего столбца первой строки';
E> end;
E> // Добаляем вторую строку
E> with ListView.Items.Add() do begin
E> Caption := 'Текст первого столбца второй строки';
E> SubItems[0] := 'Текст второго столбца второй строки';
E> SubItems[1] := 'Текст третьего столбца второй строки';
E> end;
E>end;
E>
Сделал 4 столбца, запустил...
К сожалению на строчке создания subitem-а(SubItems[0] := 'Текст второго столбца первой строки'
выдается ошибка list index out of bounds. Что я делаю неправильно?
