火
火柴天堂
Unregistered / Unconfirmed
GUEST, unregistred user!
程序如下
begin
{ Get directory name from TEdit control }
{$I-}
try
RmDir(DelEdit.Text);
if IOResult <> 0 then
MessageDlg('Cannot remove directory', mtWarning, [mbOk], 0)
else
MessageDlg('Directory removed', mtInformation, [mbOk],0);
finally
end;
{$I+}
执行时IOResult总<>0，去除{I-}后报错i/o16
begin
{ Get directory name from TEdit control }
{$I-}
try
RmDir(DelEdit.Text);
if IOResult <> 0 then
MessageDlg('Cannot remove directory', mtWarning, [mbOk], 0)
else
MessageDlg('Directory removed', mtInformation, [mbOk],0);
finally
end;
{$I+}
执行时IOResult总<>0，去除{I-}后报错i/o16