dlgSave := TSaveDialog.Create(nil);

  dlgSave.filter := 'CSV文件|*.CSV';

  dlgSave.DefaultExt := '*.CSV';

  dlgSave.filename := '服务.CSV';

  if dlgSave.Execute then

  begin

    if FileExists(dlgSave.filename) then

      try

        if MessageDlg('该文件已经存在,要覆盖吗？', mtInformation, [mbYes, mbNo], ) = IDYES

        then

          DeleteFile(PChar(dlgSave.filename))

        else

        begin

          Exit;

        end;

      except

        Exit;

      end;

    filename := dlgSave.filename;

    SaveCurPage(filename);

  end;

     sList := TStringList.Create;

      sList.Add('ID,***,***,***,***,***,***,***');

      for i :=  to grdVehicleList.RowCount -  do

      begin

        sList.Add(grdVehicleList.Cell[, i].AsString

          + ',' + grdVehicleList.Cell[COMNO_INDEX,i].AsString

          + ',' + grdVehicleList.Cell[VNO_INDEX, i].AsString

          + ',' + grdVehicleList.Cell[REGCOLOR_INDEX, i].AsString

          + ',' + grdVehicleList.Cell[GROUPID_INDEX, i].AsString

          + ',' + grdVehicleList.Cell[TERMINAL_TYPE_INDEX, i].AsString

          + ',' + grdVehicleList.Cell[SERVICE_END_DATE_INDEX, i].AsString

          + ',' + grdVehicleList.Cell[REMIND_INDEX, i].AsString);

      end;

      sList.SaveToFile(path);