Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c