Einzelnen Beitrag anzeigen

lucy

Registriert seit: 25. Okt 2017
67 Beiträge
 
Delphi XE7 Starter
 
#1

StringGrid Zeilen löschen

  Alt 27. Okt 2017, 10:16
Hallo,

möchte gerne einzelne Zeilen löschen.

Wobei die oberste Zeile (Überschrift) nicht markiert werden soll, wenn das Grid leer ist.
Ist das möglich?

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
 var
  i: integer;
begin
 for i :=StringGrid1.Row to StringGrid1.RowCount-2 do StringGrid1.Rows[i].Assign(StringGrid1.Rows[i+1]);
  StringGrid1.RowCount := StringGrid1.RowCount - 1
end;
  Mit Zitat antworten Zitat