Delphi - база знаний


Удаление колонки в StringGrid


Удаление колонки в StringGrid



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


procedure RemoveColumn(SG : TStringGrid; ColNumber : integer); 
var Column : integer; 
begin 
  ColNumber := abs(ColNumber); 

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

Взято с Исходников.ru



Начало  Назад  Вперед



Книжный магазин