[DELPHI] Row verwijderen uit stringgrid

[Verwijderd]

Hallo,

Ik wil de geselecteerde row uit een StringGrid verwijderen.
Ik probeer het nu met
StringGrid1.Rows[StringGrid1.Row].Delete(StringGrid1.Row);
maar krijg dan een error van "Cannot insert or delete rows from grid"

Hoe moet ik dit dan doen?

bvd

[Eegee]

Google link 1
Google link 2

[9900578Heck]

jij heb geluk dat ik dat net in een progje was aan het schrijven,

code:

procedure DeleteRow(a: TStringGrid; i: Integer);
var k, j: Integer;
begin
  with a do
  begin
    for k := i to RowCount-2 do
    for j := 0 to ColCount-1 do
      Cells[j, k] := Cells[j, k+1];
    RowCount := RowCount - 1
  end;
end;

function RowIsEmpty(a: TStringGrid;i: integer): boolean;
var j: integer;
begin
  result:=true;
  for j:=1 to 7 do
  begin
    result:=not(a.Cells[j,i]<>'');
    if not(result) then
    exit;
  end;
end;

en dan

code:

  i:=0;
  while i<sgAgents.RowCount-1 do
  begin
    if RowIsEmpty(sgAgents,i) then
    DeleteRow(sgAgents,i)
    else
    inc(i);
  end;
  if RowIsEmpty(sgAgents,sgAgents.RowCount-1) then
    DeleteRow(sgAgents,sgAgents.RowCount-1);

die laatste twee zijn om een laatste lege regel te verwijderen.

om alle lege regels uit een grid te verwijderen (is ook nog meer dan je vroeg )

[Verwijderd]

bedankt, hiermee zal het zeker wel lukken!