12.txt

来自「花了两个多星期写的考勤系统」· 文本 代码 · 共 22 行

procedure TPassForm.ExecDirectory(S: string);
var
  i: integer;
  P: PassType;
begin
  FileBox1.Directory := S;
  ListView1.Items.BeginUpdate;
  ListView1.Items.Clear;
  for i := FileBox1.Count - 1 downto 0 do begin
    S := FileBox1.Items[i];
    P := ExecFile(S);
    if P.PassCode = '' then Continue;
    with ListView1.Items.Add do begin
      Caption := S;
      ImageIndex := 0;
      SubItems.Add(P.FileType);
      SubItems.Add(P.PassCode);
      SubItems.Add(FormatDateTime(model, P.FileTime));
    end;
    ListView1.Items.EndUpdate;
  end;
end;