Текущий архив: 2007.04.01;
Скачать: CL | DM;
Вниз
Symbol FindData is specific to a platform! Найти похожие ветки
← →
Roman_S © (2007-03-04 15:01) [0]Нашёл в Nete два способа вычисления размера каталога:
1. uses FileCtrl -> "FileCtrl" is specific to a platform
2. Мне понравился больше:procedure GetDirSize(const aPath: string; var SizeDir: Int64);
var
SR: TSearchRec;
tPath: string;
begin
tPath := IncludeTrailingBackSlash(aPath);
if FindFirst(tPath + "*.*", faAnyFile, SR) = 0 then
begin
try
repeat
if (SR.Name = ".") or (SR.Name = "..") then
Continue;
if (SR.Attr and faDirectory) <> 0 then
begin
GetDirSize(tPath + SR.Name, SizeDir);
Continue;
end;
SizeDir := SizeDir + (SR.FindData.nFileSizeHigh shl 32) +
SR.FindData.nFileSizeLow;
until FindNext(SR) <> 0;
finally
Sysutils.FindClose(SR);
end;
end;
end;
Можно заменить чем-нибудь "FindData", чтобы не было:
Symbol "FindData" is specific to a platform
в SizeDir := SizeDir + (SR.FindData.nFileSizeHigh shl 32) +
SR.FindData.nFileSizeLow; ???
← →
Roman_S © (2007-03-04 15:04) [1]Или хотя-бы подскажите, - в каких ОСях данный код (с такими предупреждениями будет работать)?
← →
Palladin © (2007-03-04 15:38) [2]во всех win
Warning messages + F1
← →
Игорь Шевченко © (2007-03-04 17:10) [3]
> Symbol "FindData" is specific to a platform
{$WARN SYMBOL_PLATFORM OFF}
← →
Roman_S © (2007-03-04 17:29) [4]Понимаю, о чём Вы говорите, но я имел ввиду:
Вместо: IncludeTrailingBackslash -> IncludeTrailingPathDelimiter
Вместо: ExcludeTrailingBackslash -> ExcludeTrailingPathDelimiter
Вместо: RaiseLastWin32Error -> RaiseLastOSError
Вместо: FindData -> ... ???
← →
GrayFace © (2007-03-04 17:34) [5]SR.Size
← →
Roman_S © (2007-03-04 17:37) [6]GrayFace © (04.03.07 17:34) [5]
Спасибо! - Попробую!
← →
Roman_S © (2007-03-05 20:28) [7]GrayFace © (04.03.07 17:34) [5]
SR.Size
В этом случае получаем:
uses FileCtrl -> "FileCtrl" is specific to a platform
← →
RASkov (2007-03-06 02:16) [8]> [7] Roman_S © (05.03.07 20:28)
unit FileCtrl platform;
Убери из "своих" uses"ов - FileCtrl.... если ты из него ничего не используешь.
Страницы: 1 вся ветка
Текущий архив: 2007.04.01;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.037 c
