# QCron

**Repository Path**: qingfeng1989/qcron

## Basic Information

- **Project Name**: QCron
- **Description**: 用于delphi的简易计划任务库
- **Primary Language**: Pascal
- **License**: MIT
- **Default Branch**: master
- **Homepage**: None
- **GVP Project**: No

## Statistics

- **Stars**: 1
- **Forks**: 0
- **Created**: 2023-06-09
- **Last Updated**: 2025-03-18

## Categories & Tags

**Categories**: Uncategorized

**Tags**: None

## README

# QCron

#### 介绍
    用于delphi的简易计划任务库,觉得有用,请给个star.

### 表达式
    与java(Quartz)的表达式一致,如下
    *    *    *    *    *    *    *
    -    -    -    -    -    -    -
    |    |    |    |    |    |    |
    |    |    |    |    |    |    + year [optional]
    |    |    |    |    |    +----- day of week (1 - 7) sun,mon,tue,wed,thu,fri,sat
    |    |    |    |    +---------- month (1 - 12) OR jan,feb,mar,apr ...
    |    |    |    +--------------- day of month (1 - 31)
    |    |    +-------------------- hour (0 - 23)
    |    +------------------------- min (0 - 59)
    +------------------------------ second (0 - 59)
### 示例
    FTasks:= TQScheduledTasks.Create;
    var task:= FTasks.AddTask_Sync('test1','* * * * * ? *',procedure(task:TQScheduledTask)
    begin
        mmo1.Lines.Add(task.TaskName+'  '+FormatDateTime('yyyy-mm-dd hh:nn:ss',now)+'  '+FormatDateTime('yyyy-mm-dd hh:nn:ss',task.NextRunTime));
    end);
    task.MaxRunNums:= 1;
    task.ResetOnStart:= true;
    FTasks.AddTask_Sync('test2','* * * * * ? *',procedure(task:TQScheduledTask)
    begin
        mmo1.Lines.Add(task.TaskName+'  '+FormatDateTime('yyyy-mm-dd hh:nn:ss',now)+'  '+FormatDateTime('yyyy-mm-dd hh:nn:ss',task.NextRunTime));
    end);

    FTasks.Start();