delphi 在代码中 添加 TO-DO 并且 管理

TO-DO List是一项非常好用的功能。采用她可以让我们很清楚的了解以前完成了那些任务,还有哪些任务需要做,由谁负责完成,是不是比较紧急的任务等。今天来不及完成的,明天上班就可以很快的找到任务所在的位置。

打开TODOLIST:点击菜单【View】--> 选择菜单【To-Do List】 

显示窗口内容有:

  Action Item:任务项;

  !:                优先级

  Module:       所属模块

  Owner:        所有者

  Category:     种类

右键点击窗口的菜单为 

Ø         Open:   打开任务项;

Ø         Add:     新增;

Ø         Edit:     编辑;

Ø         Delete:  删除;

Ø         Sort:     分类(子菜单)

1.         Action Item:任务项

2.         Status:状态(已完成或未完成)

3.         Type:类别

4.         Priority:优先权

5.         Module:模块

6.         Owner:所有者

7.         Category:种类

Ø         Filter:   过滤器(子菜单)

1.         Categories:按种类

2.         Owners:按所有者

3.         Item Types:按项目类型

Ø         Show Completed Items:显示已经完成的项目;取消则不显示所有已经完成的任务项。

Ø         Show ToolTips when Clipped:显示工具提示;

Ø         Copy As(子菜单)

Text:采用普通文本格式保存到剪贴板中;

HTML Table:采用超文本表格格式,保存到剪贴板中。

Ø         Table Properties:表设置;

Ø         Dockable:允许驻留;

如何使用:光标定位到 需要添加的代码行位置,然后 右键菜单 【Add TO-DO Item...】,或者Ctrl+Shift+T快捷键(有时快捷键冲突调用不出来);

显示输入窗体,输入相关的信息:

l         Text:内容

l         Pripority:优先级(0~5)

l         Owner:所有者

l         Category:分类

其中后两项可以从原有的数据的下拉列表框中选择。按【OK】即新增了一条记录。同时,在代码编辑器中会自动添加对应的注释语句

{ TODO 3 -otj -ctest : this is todo }

TODO:表示未完成,如果完成会变成DONE;

3:表示该任务的优先级

-o:表示该任务的所有者;

-c:表示该任务的类别:

冒号后面是任务的说明。

修改:

选择右键菜单【Edit】,或者快捷键F2,方法和新建一样。

打开(定位到代码):

右键菜单【Open】,或者双击任务项。编辑器的光标将会自动转移到该任务所在的代码位置。

说明:在不同模块中的任务项显示的时候是不同的:粗体显示的为当前正在编辑模块中的任务项;细体显示的为其他模块中的任务项;

过滤器: 

右键菜单【Filter】,只需要将不想显示该所有者的名字前的√取消,按OK返回,在显示列表中就仅仅显示你想要看的所有者的任务项。

状态:(已完成和未完成) 

已完成任务,在任务项前面的CheckBox中会显示√,同时任务项的文本会有一条删除线,没有显示的表示未完成。

表格属性设置:通过这样的方法就可以把,任务项用表格的形式打印出来。

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
Delphi 读取 Excel 数据,可以使用 Microsoft Office Excel COM 组件来实现。下面是详细的操作步骤: 1. 创建一个新的 Delphi 工程,然后在菜单选择“Component” -> “Import ActiveX Control”。 2. 在弹出的“Import ActiveX Control”对话框,找到“Microsoft Excel 16.0 Object Library”(具体版本号根据你的 Excel 版本而定),然后选择“Install”。 3. 在“Component Palette”找到“Microsoft Excel 16.0 Object Library”组件,将其拖动到 Delphi 窗体。 4. 在代码添加以下代码: ```Delphi uses ExcelXP; procedure TForm1.Button1Click(Sender: TObject); var ExcelApp: TExcelApplication; ExcelWorkbook: _Workbook; ExcelSheet: _Worksheet; RangeMatrix: Variant; Row, Col: Integer; begin ExcelApp := TExcelApplication.Create(nil); ExcelApp.Connect; ExcelWorkbook := ExcelApp.Workbooks.Open('c:\data.xlsx'); ExcelSheet := ExcelWorkbook.Sheets[1] as _Worksheet; RangeMatrix := ExcelSheet.UsedRange.Value; for Row := VarArrayLowBound(RangeMatrix, 1) to VarArrayHighBound(RangeMatrix, 1) do begin for Col := VarArrayLowBound(RangeMatrix, 2) to VarArrayHighBound(RangeMatrix, 2) do begin ShowMessage(RangeMatrix[Row, Col]); end; end; ExcelWorkbook.Close(False); ExcelApp.Disconnect; ExcelApp.Free; end; ``` 5. 运行程序,点击按钮,即可读取 Excel 文件的数据。 上述代码,首先创建了一个 Excel 应用程序对象(TExcelApplication),并连接到了 Excel 应用程序。然后打开 Excel 文件,获取第一个工作表(_Worksheet),并获取其使用的区域(UsedRange)。最后通过循环遍历区域的每一个单元格,读取其的数据。 需要注意的是,这里读取的是区域的全部数据,如果需要读取指定单元格的数据,可以使用 Cells 属性。同时,需要确保 Excel 文件的数据与代码的数据类型一致,否则可能会出现类型转换错误。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

蝈蝈(GuoGuo)

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值