Как избавиться от исключения "is specific to a platform"

← →
Piter © (2006-01-05 03:15) [0]

Выполняю поиск файлов, встречается такое:

if FindFirst(Path + "*.txt", faReadOnly + faSysFile + faVolumeID + faArchive, sr) = 0 then

Компилятор ругается:

"[Warning] Main.pas(102): Symbol "faReadOnly" is specific to a platform"

Тоже самое про faSysFile, faVolumeID, faArchive.

Как бы сделать, чтобы предупреждение не было? Да и как по мнению компилятора надо писать правильно, типа межплатформно?

← →
TUser © (2006-01-05 05:21) [1]

Скажи ему {$warnings off}, а потом - on.

← →
Sergey Masloff (2006-01-05 07:38) [2]

Piter © (05.01.06 03:15)
Просто отключить эти сообщения. А для платформонезависимости этого вообще использовать нельзя.
Project->Options->CompilerMessages

Рекомендую убрать последние 3 начинающиеся на Unsafe.

← →
begin...end © (2006-01-05 09:01) [3]

> Piter © (05.01.06 03:15)

> faReadOnly + faSysFile + faVolumeID + faArchive

Плюсы желательно заменить на or.

← →
umbra © (2006-01-05 09:50) [4]

в этом предупреждении имеется в виду, что эти константы специфичны для виндовс, в отличие от линукса

← →
Gero © (2006-01-05 11:05) [5]

{$WARN SYMBOL_PLATFORM OFF}

← →
Almaz © (2006-01-05 11:45) [6]

> Как бы сделать, чтобы предупреждение не было?

Если смущает именно само предупреждение, то см. [5]

> Да и как по мнению компилятора надо писать правильно, типа
> межплатформно?

Тут все зависит от того, что вы хотите - если речь идет о поиске всех файлов, но не директорий (меня только смутило отсутствие faHidden в приведенном вами примере), то можно написать - faAnyFile and not faDirectory.

Удачи.

← →
Piter © (2006-01-05 13:46) [7]

Sergey Masloff (05.01.06 7:38) [2]
Рекомендую убрать последние 3 начинающиеся на Unsafe.

да это я понимаю, но не кошерно как-то. Посто понимаешь, как бы хочется доводить программы до состояния, когда она при компиляции ничего не выдает - ни ошибок, ни предупреждений. Как у меня, так и у других людей.

Almaz © (05.01.06 11:45) [6]
то можно написать - faAnyFile and not faDirectory

спасибо! Так и сделал... Хотя, конечно, в начале искать hidden файлы не планировалось :)

> но не кошерно как-то

кошерно. или обрамлять в {$IFDEF MSWINDOW} {$ENDIF}

Прошу пардону, MSWINDOWS

Как избавиться от исключения "is specific to a platform" Найти похожие ветки