Delphi - FileGetAttr(哪里出錯。。) [複製鏈接]

frankyhui

Adult

好友: 0
帖子: 124731
積分: 124889
最後登錄: 2019-2-28
在線時間: 0 小時

電梯直達

樓主

發表於 2012-5-12 02:16:43 |只看該作者 |倒序瀏覽

<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>