StringGrid Zeilen löschen

[p80286]

Delphi-Quellcode:

procedure DeleteStringgridLine(var SG:tstringgrid;sgln: integer);
begin
  if sgln>Untergrenze_fürs_löschen then begin
    lösche.......
  end;
end; 


procedure TForm1.StringGrid1DblClick(Sender: TObject);
    var
  stringgridLineNo : integer;
begin
  StringgridLineNo:= wieauchimmermandarankommt;
  if MessageDlg('Daten wirklich löschen?', mtWarning, [mbyes, mbno], 0) = mrYes then
   DeleteStringgridLine(StringGrid1,StringgridlineNo);

So ähnlich würde ich das angehen, ggf. gleich eine eigene Klasse aufbauen.

Gruß
K-H