FileGetAttr and FileSetAttr

← →
Oleg_K © (2003-10-01 13:37) [0]

Уважаемые программёры !

немогу понять чего с меня требует компилятор при следующем коде:

var
f: string;
i: integer;
begin
f:="Test.txt";
if FileExists(f) then
begin
i:=FileGetAttr(f);
if i<>faReadOnly then FileSetAttr(F,faReadOnly);
end;
end;

Выдает следующие предупреждения:
[Warning] Unit1.pas(33): Symbol "FileGetAttr" is specific to a platform
[Warning] Unit1.pas(34): Symbol "faReadOnly" is specific to a platform
[Warning] Unit1.pas(34): Symbol "FileSetAttr" is specific to a platform
[Warning] Unit1.pas(34): Symbol "faReadOnly" is specific to a platform

← →
Плохиш_ (2003-10-01 13:41) [1]

Ничего он от тебе не требует :-)

← →
Oleg_K © (2003-10-01 13:49) [2]

Всетаки, предупреждает однако ! , только о чем? (причем все работает !)

← →
clickmaker © (2003-10-01 14:13) [3]

Ну он говорит, что типа функция специфична для платформы (win32 в данном случае). Поэтому если ты пишешь кросс-платформенное приложение (и для винды и для униха, например), то с этой ф-ей можешь круто влететь

← →
Oleg_K © (2003-10-01 14:18) [4]

Ндаааа.... а в хелпе Delphi есть пример, он тоже самое выдает,
так и должно быть чтоли? Я что-то делаю незаконное чтоли?

← →
ZEE © (2003-10-01 14:19) [5]

да смотри сам - это ж [Warning] а не [Error] - и решай обращать внимание или нет...

← →
Плохиш_ (2003-10-01 14:24) [6]

2Oleg_K

Если тебе не нравится перевод clickmaker © (01.10.03 14:13) [3], то возми словарь и сам переведи.

Может в орещник? ;-)

- в начале модуля:
{$IFDEF VER150}//для D7, для D6, помоему, VER140 {$WARN SYMBOL_PLATFORM OFF}//твой случай {$WARN UNSAFE_TYPE OFF}//pointer,pchar, et cetera {$WARN UNSAFE_CAST OFF}//прямое приведение типов (скажем LongWord(i)) {$WARN UNSAFE_CODE OFF}//asm {$ENDIF}

так-то будет спокойнее!
интересно, и много таких Warning у Delphi?
везде отрубать?/разумеется с умом!

FileGetAttr and FileSetAttr Найти похожие ветки