StringGrid刪除Row或是Col的問題(已解決) |
|
papjaj
一般會員 發表:11 回覆:15 積分:5 註冊:2007-01-29 發送簡訊給我 |
|
tylin123
初階會員 發表:33 回覆:53 積分:32 註冊:2003-05-19 發送簡訊給我 |
|
papjaj
一般會員 發表:11 回覆:15 積分:5 註冊:2007-01-29 發送簡訊給我 |
|
Fishman
尊榮會員 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
var c,i : Integer; begin // Delete Column c := StringGrid1.Col; if c > 0 then begin for i := c to Stringgrid1.ColCount - 1 do StringGrid1.Cols[i] := Stringgrid1.Cols[i 1]; StringGrid1.ColCount := StringGrid1.ColCount - 1; end; end; procedure TForm1.Button2Click(Sender: TObject); var r,i : Integer; begin // Delete Row r := StringGrid1.Row; if r > 0 then begin for i := r to Stringgrid1.RowCount - 1 do StringGrid1.Rows[i] := Stringgrid1.Rows[i 1]; StringGrid1.RowCount := StringGrid1.RowCount - 1; end; end; Fishman
------
Fishman |
papjaj
一般會員 發表:11 回覆:15 積分:5 註冊:2007-01-29 發送簡訊給我 |
這位大大...
小弟使用的是bcb.. delphi我看不懂>"< 有bcb的範例可以看嗎 謝謝您的回覆 ===================引 用 文 章=================== procedure TForm1.Button1Click(Sender: TObject); var c,i : Integer; begin // Delete Column c := StringGrid1.Col; if c > 0 then begin for i := c to Stringgrid1.ColCount - 1 do StringGrid1.Cols[i] := Stringgrid1.Cols[i 1]; StringGrid1.ColCount := StringGrid1.ColCount - 1; end; end; procedure TForm1.Button2Click(Sender: TObject); var r,i : Integer; begin // Delete Row r := StringGrid1.Row; if r > 0 then begin for i := r to Stringgrid1.RowCount - 1 do StringGrid1.Rows[i] := Stringgrid1.Rows[i 1]; StringGrid1.RowCount := StringGrid1.RowCount - 1; end; end; Fishman |
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
那試試下面的程式碼吧,修改Fishman前輩的code
void __fastcall TForm1::Button1Click(TObject *Sender) { int i, c; c = StringGrid1->Col; if (c>0) { for (i=c; i { StringGrid1->Cols[i] = StringGrid1->Cols[i 1]; StringGrid1->ColCount = StringGrid1->ColCount - 1; } } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { int r, i; r = StringGrid1->Row; if (r>0) { for (i=r; i { StringGrid1->Rows[i] = StringGrid1->Rows[i 1]; StringGrid1->RowCount = StringGrid1->RowCount - 1; } } //--------------------------------------------------------------------------- |
papjaj
一般會員 發表:11 回覆:15 積分:5 註冊:2007-01-29 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |