TDBGrid

[DeddyH]

Hier ein Beispiel mit einem Stringgrid und einem Button:

Delphi-Quellcode:

procedure TfrmsgTest.btnAddClick(Sender: TObject);
begin
  if sgTest.Cells[sgTest.FixedCols,Pred(sgTest.RowCount)] <> '' then
    sgTest.RowCount := Succ(sgTest.RowCount);
  sgTest.Cells[sgTest.FixedCols,
               Pred(sgTest.RowCount)] :=  FormatDateTime('hh:mm:ss',now);
end;