Q&A

  • 스트링 그리드의 내용을 한꺼번에 지우려면..
스트링 그리들 생성하구 거기에 내용을 넣었습니다.



근데 스트링 그리드의 내용을 전부다 한꺼번에 지우고 시퍼요..



스트링 그리드에 대한 한수 지도 부탁 드립니다....

1  COMMENTS
  • Profile
    최석기 1999.06.19 02:47
    한재영 께서 말씀하시기를...

    > 스트링 그리들 생성하구 거기에 내용을 넣었습니다.

    >

    > 근데 스트링 그리드의 내용을 전부다 한꺼번에 지우고 시퍼요..

    >

    > 스트링 그리드에 대한 한수 지도 부탁 드립니다....



    StringGrid는 한꺼번에 다 지우는 Clear 같은 메소드는 존재하지 않습니다.

    하지만 StringGrid.Cols는 TStrings Type이므로 컬럼단위로 지우시면 셀 하나씩 지우는거 보다는 빠르실거예요..

    아래 코드를 참조하세요..



    procedure TForm1.FormCreate(Sender: TObject);

    var

    i, j : integer;

    begin

    for i := 0 to 4 do

    for j := 0 to 4 do

    StringGrid1.Cells[i, j] := IntToStr((i+1) * (j + 1));

    end;



    procedure TForm1.Button1Click(Sender: TObject);

    var

    i, j : Integer;

    begin

    for i:= 0 to 4 do

    StringGrid1.Cols[i].Clear;

    end;