2,497
社区成员
发帖
与我相关
我的任务
分享
var
i: integer;
item: TListItem;
begin
data.First;
while not data.Eof do
begin
if (data.FieldByName('周一').AsInteger=1) and (
(data.FieldByName('周二').AsInteger=1) or
(data.FieldByName('周三').AsInteger=1) or
(data.FieldByName('周四').AsInteger=1) or
(data.FieldByName('周五').AsInteger=1)
) then
begin
item := ListView1.Items.Insert(0); //插入第一行
end
else begin
item := ListView1.Items.Add; //插入到最后一行
end;
item.Caption := '';//序号后续统一处理
item.SubItems.Add(IntToStr(data.FieldByName('周一').AsInteger));
item.SubItems.Add(IntToStr(data.FieldByName('周二').AsInteger));
//TODO 添加其他天数据
data.Next;
end;
//更新序号
for i:=0 to ListView1.Items.Count-1 do
begin
ListView1.Items[i].Caption := IntToStr(i+1);
end;
end;