Slet data i StringGrid

Deletes a specified from the grid.

procedure DeleteRow(ARow: Longint);

Description

Call DeleteRow to remove a row from the middle of the grid. Provide the index of the row to remove as ARow. To remove the last row from the grid, set the RowCount property instead.

Hej sjensen

Kan du vise med et eks. hvad det er du mener
hilsen anold

Ja, hvis vi siger du vil slette med en knap, så skal du i knappens onclick event skrive følgende:

stringgrid1.deleterow(stringgrid1.row);

Stringgrid1.row er linienr på den linie i gridden der er index/selekteret/den aktive eller hvordan man nu skal sige det.

Hvis du ikke først vælger linien kan du selvfælgeligt ikke bruge stringgrid1.row som linienr, men skal bruge det ønskede linienr. F.eks. hvis du vil slette linie 9 i en stringgrid med 9 eller flere linier:

stringgrid1.deleterow(8);  // 8 er fysisk linie 9 fordi første linie er linie 0

men som nævnt vil stringgrid1.row være linienummeret på den fremhævede/valgte linie og kan derfor bruges direkte.

Hej arnold

Her er et lidt mere komplet eksempel .. placer en StrigGrid på en form , lav et FormCreate event samt et onKeyDown event på dit stringrid skriv så det følgende kode ...

procedure TForm1.FormCreate(Sender: TObject);
var
  i, j : Integer;
begin
  Randomize;
  for i:= 0 to pred(StringGrid1.RowCount) do
    for j:= 0 to pred(StringGrid1.ColCount) do
      StringGrid1.Cells[i,j] := IntToStr(Random(5000));
end;

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);
var
  i, j : Integer;
begin
if (key = 46) and  (not (ssShift in Shift)) then
begin
  i := StringGrid1.Col;
  j := StringGrid1.Row;
  StringGrid1.Cells[i,j] := \'\';
end;

if (key = 46) and  ((ssCtrl in Shift)) then
begin
  i := StringGrid1.Col;
  StringGrid1.Cols[i].Clear;
end;

if (key = 46) and  ((ssShift in Shift)) then
begin
  i := StringGrid1.Row;
  StringGrid1.Rows[i].Clear;
end;

end;

Jens B