SAY討論區

標題: Delphi - FileGetAttr(哪里出錯。。) [打印本頁]

作者: frankyhui 時間: 2012-5-12 02:16:43 標題: Delphi - FileGetAttr(哪里出錯。。)

<div class="blockcode"><span class="headactions" onclick="copycode($('code0'));">複製內容到剪貼板</span><h5>代碼:</h5><code id="code0">implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Case FileGetAttr('E:\Doc.txt') of
faReadOnly : ShowMessage('Read Only');
faHidden : ShowMessage('Hidden');
faSysFile : ShowMessage('System File');
faVolumeID : ShowMessage('Volume ID');
faDirectory : ShowMessage('Directory');
faArchive : ShowMessage('Archive');
faAnyFile : ShowMessage('Any File');

else

ShowMessage('Unidenfied');
end;

end.</code>

作者: 弒殺滅神 時間: 2012-5-16 04:59:13

看來這一帖沒有多少人回喔

歡迎光臨 SAY討論區 (http://say.go2tutor.com/)