حذف رکورد از stringgrid دلفی

برای حذف رکورد جاری در stringgrid دلفی ، پروسیژر زیر را تعریف و در برنامه استفاد نمایید

procedure DeleteRow(Grid: TStringGrid);

var

  i: Integer;

begin

  for i := grid.Row to Grid.RowCount - 2 do

    Grid.Rows[i].Assign(Grid.Rows[i + 1]);

  Grid.RowCount := Grid.RowCount - 1;

end;

برای رکورد خاص به پروسیژر یک ورودی دیگر که شماره رکورد میتوان استفاده کرد مانند زیر :

procedure DeleteRow(Grid: TStringGrid; ARow: Integer);

var

  i: Integer;

begin

  for i := ARow to Grid.RowCount - 2 do

    Grid.Rows[i].Assign(Grid.Rows[i + 1]);

  Grid.RowCount := Grid.RowCount - 1;

end;