TStringGrid

[mrandrey]

Вопрос заключается в следующем:

В TStringGrid 5 колонок мне нужго удалить только третью. Кто знает помогите

[Квэнди]

А теперь по человечески что именно нужно сделать ?

[Alex21]

Вот так:

Procedure GridRemoveColumn(StrGrid: TStringGrid; DelColumn: Integer);
Var Column: Integer;
begin
  If DelColumn <= StrGrid.ColCount then
  Begin
    For Column := DelColumn To StrGrid.ColCount-1 do
      StrGrid.Cols[Column-1].Assign(StrGrid.Cols[Column]);
    StrGrid.ColCount := StrGrid.ColCount-1;
  End;
end;