Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.10.2017, 06:24   #1
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,893
Вопрос Добавление и пересоздание столбцов в ListView

Так получилось, что сначала вношу в ListView данные, а потом пересоздаю в нём столбцы. Работает без ошибок, но возникает вопрос, можно ли так вообще делать?
Код:
procedure TForm7.Button1Click(Sender: TObject);
var
  I: Integer;
  Item: TListItem;
begin
  for I := 0 to 4 do
  begin
    Item := ListView.Items.Add;
    Item.Caption := IntToStr(I);
    Item.SubItems.Add(IntToStr(I));
    Item.SubItems.Add(IntToStr(I));
  end;
  // Удаляем все столбцы
  ListView.Columns.Clear;
  // Пересоздаём столбцы таблицы для админ/пользователь
  ListView.Columns.Insert(0);
  ListView.Column[0].Caption := 'ID';
  ListView.Column[0].Width := 50;

  ListView.Columns.Insert(1);
  ListView.Column[1].Caption := 'Статус';
  ListView.Column[1].Width := 143;

  ListView.Columns.Insert(2);
  ListView.Column[2].Caption := 'Заявка';
  ListView.Column[2].Width := 200;
end;
Shouldercannon вне форума Ответить с цитированием
Старый 11.10.2017, 07:55   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Работает же.
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
listView сделать неизменяемую ширину столбцов чувачек C# (си шарп) 2 12.05.2014 10:46
WPF Listview заполнение столбцов ilsinho_diaz WPF, UWP, WinRT, XAML 1 13.03.2012 18:51
ListView заполение столбцов mihenze Общие вопросы Delphi 1 28.03.2011 23:18
Добавление столбцов! Ilnour1986 Microsoft Office Excel 2 27.10.2009 14:16
Добавление столбцов Ilnour1986 Microsoft Office Excel 1 21.10.2009 19:06