Добавление колонки в StringGridDelphi , Компоненты и Классы , TStringGrid и TDrawGridДобавление колонки в StringGridАвтор: http://www.sources.ru procedure GridAddColumn(StrGrid: TStringGrid; NewColumn: Integer); var Column: Integer; begin StrGrid.ColCount := StrGrid.ColCount + 1; for Column := StrGrid.ColCount - 1 downto NewColumn do StrGrid.Cols[Column].Assign(StrGrid.Cols[Column - 1]); StrGrid.Cols[NewColumn - 1].Text := ''; end; Перевод на русский язык: Процедура Delphi, называемая Параметр: Переменные:
Код:
1. Альтернативное решение: Вместо того, чтобы сдвигать все столбцы вправо, можно создать новый столбец и заполнить его дефолтными значениями или оставить его пустым. Это подход более эффективен, особенно для больших таблиц. Вот обновленная версия процедуры:
Этот код просто добавляет новый столбец на указанном индексе и устанавливает его текст в пустую строку. Вы можете модифицировать эту процедуру, чтобы заполнить новый столбец дефолтными значениями или выполнить любые другие необходимые инициализации. В статье описана процедура GridAddColumn, которая добавляет новую колонку в TStringGrid и перемещает existing columns на один шаг к правому. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: TStringGrid и TDrawGrid ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |