Добавление колонки в StringGrid 2

Delphi , Компоненты и Классы , TStringGrid и TDrawGrid

Автор: http://www.sources.ru

procedure AddColumn(SG: TStringGrid; AtColNumber: integer;
  ColWidth: integer = 0);
var
  Column: integer;
  Wdth: integer;
begin
  AtColNumber := abs(AtColNumber);
  SG.ColCount := SG.ColCount + 1;
  if abs(ColWidth) = 0 then
    Wdth := SG.DefaultColWidth
  else
    Wdth := ColWidth;

  if AtColNumber <= SG.ColCount then
  begin
    for Column := SG.ColCount - 1 downto AtColNumber + 1 do
    begin
      SG.Cols[Column].Assign(SG.Cols[Column - 1]);
      SG.Colwidths[Column] := SG.Colwidths[Column - 1];
    end;

    SG.Cols[AtColNumber].Text := '';
    SG.Colwidths[AtColNumber] := Wdth;
  end;
end;

Here's the translation of the provided text into Russian:

Код, представленный процедурой AddColumn, добавляет новый столбец в компонент StringGrid в языке программирования Delphi. Вот подробное описание того, что код делает:

1. Два параметра, SG и AtColNumber, передаются в процедуру:
   • SG: Компонент StringGrid, в котором будет добавлен новый столбец.
   • AtColNumber: Позиция (номер столбца), где должен быть вставлен новый столбец.
2. Если AtColNumber отрицательный, он конвертируется в положительное значение с помощью функции abs().
3. Свойство ColCount компонента StringGrid увеличивается на 1, эффективно добавляя новый столбец.
4. Если не указано ширина для нового столбца (т.е., ColWidth равен 0), используется стандартная ширина столбца вместо этого.
5. Петля выполняется для сдвига всех столбцов с индексами, равными или больше AtColNumber, на один шаг вправо:
   • Текст и ширина каждого сдвинутого столбца присваиваются из предыдущего столбца с помощью метода Assign() и массива Colwidths[].
6. Наконец, текст нового столбца устанавливается в пустую строку (''), а его ширина устанавливается в указанное значение или стандартное значение, если не было указано.

Альтернативное решение:

Вместо сдвига всех столбцов вручную можно использовать метод Insert() свойства Cols[] компонента StringGrid, чтобы вставить новый столбец в указанной позиции. Этоapproach уменьшит количество кода и сделает его более компактным:

procedure AddColumn( SG: TStringGrid; AtColNumber: integer; ColWidth: integer = 0);
begin
  SG.ColCount := SG.ColCount + 1;
  if abs(ColWidth) = 0 then
    ColWidth := SG.DefaultColWidth;

  SG.Cols.Insert(AtColNumber, '');
  SG.Colwidths[AtColNumber] := ColWidth;
end;

Альтернативное реализация достигает того же результата, что и оригинальный код, но более эффективна и легче для чтения.

Добавление колонки в StringGrid 2 - процедура, которая позволяет добавить новую колонку к существующему StringGrid с настройкой ширины и позиции в конкретном столбце.

Комментарии и вопросы

:: Главная :: TStringGrid и TDrawGrid ::