大大们好，又要麻烦您们了，抱歉 我在设置文件属性时，遇到了一个令我不能理解的问题（我是 class="code"> procedure TForm1.Button1Click(Sender: TObject); var iFileAttrs: Word; sFileName: String; begin iFileAttrs := faSysFile faHidden; sFileName := 'C:\\test.txt'; FileSetAttr(sFileName,iFileAttrs); end; 当我按下F9后，编译能通过，但是取有3项Warn: [Warning] Unit1.pas(31): Symbol 'faSysFile' is specific to a platform [Warning] Unit1.pas(31): Symbol 'faHidden' is specific to a platform [Warning] Unit1.pas(33): Symbol 'FileSetAttr' is specific to a platform 奇怪，我按F1,仔细阅读了FileSetAttr的Help，她也是用的Word啊，我错在什么地方了呢？我知道这个问题很幼稚，但还是请大大您们指点一下我 < class="code"> =============== 人生在勤,不索何获? ===============

------
人生在勤，不索何获？

bigdogchina 你好:    那只是 Compiler 的警告訊息, 如果你不想看到這些警告訊息, 可以:

{$WARN SYMBOL_PLATFORM OFF} // 關閉
procedure TForm1.Button1Click(Sender: TObject);
var
        iFileAttrs: Word;
        sFileName:  String;
begin
        iFileAttrs := faSysFile   faHidden;
        sFileName  := 'C:\\test.txt';
        FileSetAttr(sFileName,iFileAttrs);
end;
{$WARN SYMBOL_PLATFORM ON} // 打開

大大们，不好意思啊，我再红着脸请前辈们再指教一下: 我想知道这段 > < class="code"> =============== 人生在勤,不索何获? ===============

------
人生在勤，不索何获？

那些警告, 是說你程序中, 引用了一些指定於特定的作業系統(MSWINDOWS / LINUX)下的類型/程序...等等, 如果你須考慮跨平台的需求(如轉 Kylix ), 最好還是不要將該Compiler指示關閉.

Mickey大大，您好，我真的不跨平台啊，我就在MS的Windows下执行(我确实没有想过跨平台，我只想让它在Windows下顺顺利利的run) 请问有没有办法改一下<>>，让它不产生 > < class="code"> =============== 人生在勤,不索何获? ===============

------
人生在勤，不索何获？

你可以在Delphi 环境的'Project'->'Options'->'Compiler Messages'中将你不想要的信息都去掉。

引言: Mickey大大，您好，我真的不跨平台啊，我就在MS的Windows下执行(我确实没有想过跨平台，我只想让它在Windows下顺顺利利的run) 请问有没有办法改一下<>>，让它不产生 > < face="Verdana, Arial, Helvetica"> 我第一個回應, 設定 Compiler 指示就可以了阿 ? {$WARN SYMBOL_PLATFORM OFF} // 關閉

引言:

引言: Mickey大大，您好，我真的不跨平台啊，我就在MS的Windows下执行(我确实没有想过跨平台，我只想让它在Windows下顺顺利利的run) 请问有没有办法改一下<>>，让它不产生 > < face="Verdana, Arial, Helvetica"> 我第一個回應, 設定 Compiler 指示就可以了阿 ? {$WARN SYMBOL_PLATFORM OFF} // 關閉

Mickey大大，我的意思是想说改

var
        iFileAttrs: Word;
        sFileName:  String;
begin
        iFileAttrs := faSysFile   faHidden;
        sFileName  := 'C:\\test.txt';
        FileSetAttr(sFileName,iFileAttrs);
end;    

这个code啊，实在是很抱歉，是我没有把问题说清楚！实在不能该code也无妨，真诚感谢您热心的解答！谢谢您

===============
人生在勤,不索何获? 
===============