多任务定时执行,如果提高效率? 我的系统中做了一个多任务定时提醒的功能,任务的时间、标题和内容,都是存储在数据库中。目前是每隔0.5秒查询一次数据库,看是否有到点的任务,有则提醒。我感觉这样很消耗数据库的资源,请问大家有什么好的思路么。(注:任务的数据需要存储在数据库中)有人提示可以将列表读到内存中,可是我不会内存如何加载多列数据和读取,百度也找不到。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 TList, 容器类,喜欢什么放什么 type TMyItem = record time: TDateTime; title: string; data: string; end; TMyItemArray = array of TMyItem;procedure TForm1.Button1Click(Sender: TObject);var list: TMyItemArray; i: integer; count: integer;begin try // load DataBase // ..... count := ?; // Data count SetLength(list, count); for i := 0 to count - 1 do begin list[i].time := ? list[i].title := ? list[i].data := ? end; finally end;end; 把数据库的每一条记录封装成一个对象,程序启动的时候把记录读出来,动态生成对象,然后用TObjectList保存以下,轮询TObjectList就行了~ image写入SQL语句 重新开贴,关于C++代码转化为Delphi代码! 新手问题 [ 请教 ] 不用HOOK也能全局键盘记录的方法!!! SQL Anywhere 还是免费的?? 在一个应用系统中,如何实现工程文件管理???,有标准吗? 带有序号的dbgrid怎么做? 關於dbgrid中回車時光標會自動下移到下一行的問題?有遇到這種問題的請進. SOS--多重窗体处理 一个小问题:怎样把一个字符串赋给memorystream类型的变量? DBGRIDEH双击事件中获取同行其他列单元格内容?????? delphi如何以16进制数据写入偏移地址?
type
TMyItem = record
time: TDateTime;
title: string;
data: string;
end;
TMyItemArray = array of TMyItem;procedure TForm1.Button1Click(Sender: TObject);
var
list: TMyItemArray;
i: integer;
count: integer;
begin
try
// load DataBase
// .....
count := ?; // Data count
SetLength(list, count);
for i := 0 to count - 1 do
begin
list[i].time := ?
list[i].title := ?
list[i].data := ?
end;
finally end;
end;