opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Get rid of deprecated and platform symbols.

Browse Source
This commit is contained in:
rosenfield
2007-11-09 12:14:25 +00:00
parent b9d3c32f21
commit 0cc2bd5f7f
5 changed files with 16 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/insertfiles.pas
View File

@@ -198,12 +198,10 @@ end;
procedure TfrmInsertFiles.addfile(filename: String);
var
li : TListItem;
filesize, attrs: Integer;
filesize: Integer;
Info : TSHFileInfo;
begin
attrs := filegetattr(filename);
if attrs and faDirectory <> 0 then
exit;
if DirectoryExists(filename) then Exit;
li := ListViewFiles.Items.Add;
li.Caption := filename;
filesize := ceil(_getfilesize(filename) / 1024);