delphi listview 的问题。高手进！

来源：百度知道 编辑：UC知道 时间：2024/05/15 00:10:29
在下 实在解决不了了
望各位兄弟帮帮忙，，先谢谢了
题目如下：

Listview1.items[i].caption 以时间方式显示(datetimetostr(now()));
Timer 控件检查；如果到了 整点 或者 该点的30分种 更新一次；
如果 Listview1.items[i].caption < = 现在的时间
那么把符合条件的 放在最上面；

说简单对我不简单，说难对于你可能不难~！
帮个忙，实在百思不得其解啊！！！！
那么把符合条件的 放在 Listview 最上面；

再谢谢！！！！

直接调用 排序 不就可以了么?从小到大排
procedure TForm1.tmr1Timer(Sender: TObject);
var
lItem: TListItem;
begin
if StrToInt(FormatDateTime('nn',Now)) mod 30 = 0 then
begin
lv1.SortType:=stText;//这样时间小的自然会排到前面去了
end;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
var
lItem: TListItem;
begin
if StrToInt(FormatDateTime('nn',Now)) mod 30 = 0 then
begin
lItem := lv1.Items.Insert(0);
lItem.Caption := DateTimeToStr(Now);
end;
end;

Insert(0); --就是将最后添加的时间放在最上边