摘要： 注意函数返回值类型是Int64，如果文件存在则返回文件大小，否则返回0。 function FileSize(FileName: string): Int64;var sr: TSearchRec;begin if FindFirst(FileName, faAnyFile, sr) = 0 then Result := Int64(sr.FindData.nFileSizeHigh) shl 3... 阅读全文

摘要： 为了在ListView的某个单元格中插入进度条，通常有2个方法：创建进度条并设定Parent为ListView(如[1]和[2])，或是自绘方式(如[3])，简便起见，本文采用前者方法。 创建一个缺省工程，在窗体上拖放两个控件：TListView控件名为lvw1，TButton控件名为btn1。 lvw1的属性 ViewStyle = vsReport，Columns添加几列，代码如下： unit... 阅读全文