Вниз
Скачать: CL | DM;

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], то возми словарь и сам переведи.

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


← →
han_malign ©   (2003-10-01 14:26) [7]

- в начале модуля:
{$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}


← →
Oleg_K ©   (2003-10-02 07:24) [8]

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



Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: 0.014 c
11-40323
balbes
2003-02-02 17:45
2003.10.13
Try Accept B delphi6


9-40219
Uncle Archi
2003-04-07 22:54
2003.10.13
GLScene


6-40540
Checist [root]
2003-08-16 02:51
2003.10.13
WebBrowser возращается !


8-40526
LedWorm
2003-06-11 19:24
2003.10.13
Эквалайзер в делфи


14-40587
Дмитри
2003-09-25 10:56
2003.10.13
Что лучше ?




   Наверх