Daten aus String Grid an Logdatei anfügen

[Sharky]

Hai hinrstroem,

ich würde einfach prüfen ob es das Logfile schon gibt, wenn ja dieses erst in die StingList laden.

Delphi-Quellcode:

procedure WriteLogFile(aDataGrid: TStringGrid);
var
  iRow: integer;
  DateStr: string;
  sl: TStringList;
  filename: string;
begin
  DateStr := FormatDateTime('YYYY_MM_DD', Date);
  filename := 'C:\' + DateStr + '_DSC_Observer.log';
  sl := TStringList.Create;
  try
    if FileExists(filename) then
    begin
      sl.LoadFromFile(filename);
    end;
    for iRow := 0 to Pred(aDataGrid.RowCount) do
    begin
      sl.Add(aDataGrid.Rows[iRow].CommaText);
    end;
    sl.SaveToFile(filename);
  finally
    sl.Free;
  end;
end;

procedure TDemoForm.btn_LogClick(Sender: TObject);
begin
  WriteLogFile(StringGrid1);
end;