Fjerne row i StringGrid

http://www.swissdelphicenter.ch/torry/showcode.php?id=460

Hmm... det hjalp jo ikke meget..

Hmm.. så virker det her måske:

procedure DeleteRow(StringGrid: TStringGrid; Row: Integer);
var
  i: Integer;
begin
  with yourStringGrid do
  begin
    for i := Row to RowCount-2 do
      Rows[i].Assign(Rows[i+1]);
    RowCount := RowCount - 1
  end;
end;

Er det delphi kode?

Ja... Men har ikke testet den..

Lige en rettelse:

  with yourStringGrid do

skal være

  with StringGrid


og for at slette den markerede række, tror jeg du kan bruge:

procedure TForm1.Button1Click(Sender: TObject)
begin
  if (gdSelected in State) then
  begin
    DeleteRow(StringGrid1, StringGrid1.Selected.Left);
  end;
end;

ikke for noget.. men det er et C/C++ forum?

Ups... undskyld... :(

gør ikke noget.. kan bare ikke forstå delhpi kode :)

Måske virker det her så... Det skulle vist være C++ nu :-) :

void __fastcall RemoveRow(
  TStringGrid* StringGrid, int Index)
{
  SendMessage(StringGrid->Handle,
    WM_SETREDRAW, false, 0);
  try {
    const int row_count =
      StringGrid->RowCount;

    // (1) shift the contents of
    // the trailing columns
    for (int row = Index;
        row < row_count - 1; ++row) {
      StringGrid->Rows[row] =
        StringGrid->Rows[row + 1];
    }     

    // (2) remove the last column
    StringGrid->RowCount = row_count -1;
  }
  catch (...) {
    SendMessage(StringGrid->Handle,
      WM_SETREDRAW, true, 0);
  }
  SendMessage(StringGrid->Handle,
    WM_SETREDRAW, true, 0);

  // update (repaint) the shifted cols
  RECT R =
    StringGrid->CellRect(0, Index);
  InflateRect(&R, StringGrid->Width,
    StringGrid->Height);
  InvalidateRect(StringGrid->Handle,
    &R, false);
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        if(StringGrid1->Selection.Left > 0)
                RemoveRow(StringGrid1, StringGrid1->Selection.Left);
}

Fandt RemoveRow funktionen her:
http://www.cppbuilderdevjournal.com/articles/issues/0009/Working_with_string_grids.htm

Hmm... den har bare et lille problem.. den fjerner kun den øverste på listen :( Den fjerner ikke det markerede

Hmm... tror egentlig det er fordi jeg har skrevet Left i stedet for Top :/... Prøv det her i stedet:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        if(StringGrid1->Selection.Top > 0)
                RemoveRow(StringGrid1, StringGrid1->Selection.Top);
}

Ja ja.. så virker det :)