StringGrid und Button Funktion

[Alterauge]

Delphi-Quellcode:

procedure TFormEinsatz.InsertLine(Sender: TObject);
begin
  FormReporting.Report.InsertChildRow(0);
  FormReporting.Report.Rows[1][0] := '<p align="center">' +
   IntToStr(FormReporting.Report.RowCount-1) + '</p>';
  FormReporting.Report.Rows[1][2] := '' + DateToStr(Date) + '';
  FormReporting.Report.Rows[1][3] := '' + TimeToStr(Now) + '';
end;