小弟有bcb方面問題請教各位先進
小弟想做出點選某個Row或Col後，按下某個Button即可刪除所選定的那個Row或Col
小弟使用
StringGrid->Rows[i]->Delete(i);
的方式想達到刪除的功能
但卻會在按下button時出現錯誤
"Can't not insert or delete rows from grid"
這問題困擾了我很久
想請問各位大大解決及實現方法...

我建議你不妨試試 TAdvStringGrid 功能會好很多.

 謝謝這位大大
但是小弟因為已經接近完成狀態
所以希望能在不重新來過的前提之下
達到StringGrid欄位的增刪
增加沒有什麼大問題
但是刪卻無法刪除指定的欄位(整欄刪除，資料不用在意)
希望能有先進指點一下小弟
===================引 用 文 章===================

我建議你不妨試試 TAdvStringGrid 功能會好很多.

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

這位大大...
小弟使用的是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

那試試下面的程式碼吧,修改Fishman前輩的code

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i, c;
c = StringGrid1->Col;
if (c>0)
{
for (i=c; iColCount-1; 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; iRowCount-1; i )
{
StringGrid1->Rows[i] = StringGrid1->Rows[i 1];
}
StringGrid1->RowCount = StringGrid1->RowCount - 1;
}
}
//---------------------------------------------------------------------------

謝謝兩位大大的幫忙唷
我的問題已經解決了
真是感謝