どのようにデルファイXE2

Question

上のクロスプラットフォームな方法でファイルサイズを取得、私はファイルサイズを知るために、このrutineを持っている：

（http://delphi.about.com/od/delphitips2008/qt/filesize.htmに基づく）

function FileSize(fileName : String) : Int64; 
var 
    sr : TSearchRec; 
begin 
    if FindFirst(fileName, faAnyFile, sr) = 0 then 
    {$IFDEF MSWINDOWS} 
    result := Int64(sr.FindData.nFileSizeHigh) shl Int64(32) + Int64(sr.FindData.nFileSizeLow) 
    {$ELSE} 
    result := sr.Size 
    {$ENDIF} 
    else 
    result := -1; 

    FindClose(sr) ; 
end; 

しかし、これは、この警告を与える：

[DCC Warning] Funciones.pas(61): W1002 Symbol 'FindData' is specific to a platform 

を

これを行うには、クリーンなクロスプラットフォームの方法が存在するのだろうかと思います。私はTFileクラスをチェックして、それを見つけられませんでした...

Answer 1

メンバーは既にInt64（変更されたバージョンがわからない）で、WindowsのTSearchRec.FindDataフィールドの64ビット値で完全に埋められているため、手動でサイズを計算する必要はありません。たとえば、

{$IFDEF VER230} 
    {$DEFINE USE_TSEARCHREC_SIZE} 
{$ELSE} 
    {$IFNDEF MSWINDOWS} 
    {$DEFINE USE_TSEARCHREC_SIZE} 
    {$ENDIF} 
{$ENDIF} 

function FileSize(fileName : String) : Int64; 
var 
    sr : TSearchRec; 
begin 
    if FindFirst(fileName, faAnyFile, sr) = 0 then 
    begin 
    {$IFDEF USE_TSEARCHREC_SIZE} 
    Result := sr.Size; 
    {$ELSE} 
    Result := (Int64(sr.FindData.nFileSizeHigh) shl 32) + sr.FindData.nFileSizeLow; 
    {$ENDIF} 
    FindClose(sr); 
    end 
    else 
    Result := -1; 
end; 

Answer 2

FindData構造のTSearchRec構造のメンバはWindowsプラットフォームに特有なものですが、あなたのコードではあなたのことを心配する必要はありません。 Windowsとは異なるプラットフォーム上にいるときにそのメンバーにアクセスしません。

// condition if you are on the Windows platform 
{$IFDEF MSWINDOWS} 
    // here you can access the FindData member because you are 
    // on Windows 
    Result := Int64(sr.FindData.nFileSizeHigh) shl Int64(32) + 
    Int64(sr.FindData.nFileSizeLow); 
{$ELSE} 
    // here you can't use FindData member and you would even 
    // get the compiler error because the FindData member is 
    // Windows specific and you are now on different platform 
{$ENDIF} 

Answer 3

あなたはすでにあなたがWindows上で実行されているチェックしているので、ローカルにコンパイラによって報告された唯一の「本物」の警告を維持するための警告を削除しても安全である：デルファイXE2、TSearchRec.Sizeで

if FindFirst(fileName, faAnyFile, sr) = 0 then 
    {$IFDEF MSWINDOWS} 
    {$WARN SYMBOL_PLATFORM OFF} 
    result := Int64(sr.FindData.nFileSizeHigh) shl Int64(32) + Int64(sr.FindData.nFileSizeLow) 
    {$WARN SYMBOL_PLATFORM ON} 
    {$ELSE} 

Answer 4

TDirectory.GetLastWriteTime(path);