hallo,
wie kann ich alle Zeilen mit Inhalt löschen?
Der Zähler sollte auch wieder bei 1 anfangen!
Delphi-Quellcode:
procedure TForm1.EventLoglschen1Click(Sender: TObject);
var
i : integer;
begin
?????????????????????????????????????????????????????
zaehler:= zaehler + 1;
StringGrid1.RowCount := StringGrid1.RowCount + 1;
for i := StringGrid1.RowCount - 1 downto StringGrid1.FixedRows + 1 do
StringGrid1.Rows [i].Assign (StringGrid1.Rows [i - 1]);
StringGrid1.Rows [StringGrid1.FixedRows].Clear;
Stringgrid1.ColWidths[1] := 22;
Stringgrid1.ColWidths[3] := 80;
Stringgrid1.ColWidths[2] := 80;
Stringgrid1.ColWidths[4] := 80;
Stringgrid1.ColWidths[5] := 477;
StringGrid1.Cells [0, StringGrid1.FixedRows] := InttoStr(zaehler);
StringGrid1.Cells [4, StringGrid1.FixedRows] := 'Clear';
StringGrid1.Cells [3, StringGrid1.FixedRows] := FormatDateTime ('hh:nn:ss', Now);
StringGrid1.Cells [2, StringGrid1.FixedRows] := FormatDateTime ('dd.mm.yyyy', Now);
StringGrid1.Cells [5, StringGrid1.FixedRows] := 'StringGrid Event Log wird gelöscht';
end;