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;