Zeile löschen im StringGrid

[Harry M.]

ich habe dir schnell aml was gebastelt...

stringgrid1.option.gorowselect := TRUE <<- nicht vergessen im objectinspector einzustellen

Delphi-Quellcode:

  i : integer = 0;  // global inizalisieren !!!

procedure TForm1.LoeschenClick(Sender: TObject);
begin

  if I = Stringgrid1.RowCount then begin
    I := 0;
    exit
    end else begin
         Stringgrid1.Cells[i,stringgrid1.Row] := '';  // "steht für die zeile die du belegen willst"
          i := i +1;
          LoeschenClick(self);
         end;
end;

procedure TForm1.HinzufuegenClick(Sender: TObject);
begin    
  if I = Stringgrid1.RowCount then begin
    I := 0;
    exit
    end else begin
         Stringgrid1.Cells[i,stringgrid1.Row] := 'xxx';
          i := i +1;
          HinzufuegenClick(self);
         end;

end;