StringGrid 초기화

StringGrid 초기화

 

procedure TF_Item_Save.StringGridClear;

var

I: Integer;

begin

for I := 0 to StringGrid.ColCount - 1 do

StringGrid.Cols[I].Clear;

StringGrid.RowCount := 2;

StringGrid.Cells[0,0] := '대분류';

StringGrid.Cells[1,0] := '중분류';

StringGrid.Cells[2,0] := '시약및재료명';

StringGrid.Cells[3,0] := '규격';

StringGrid.Cells[4,0] := '단위';

StringGrid.Cells[5,0] := '저장여부';

end;