用Delph8, 这句有错：

raise EInOutError.Create('xxxxxx");

错误信息: undeclared identifier einouterror

uses 已经有 sysutils.

谢谢！

您好,

EInOutError 是一個列舉的值, 不是物件, 所以 .create 是錯誤的

請參考用法.
except
// IO error
On E : EInOutError do
ShowMessage('IO error : ' E.Message);
// Dibision by zero
On E : EDivByZero do
ShowMessage('Div by zero error : ' E.Message);
// Catch other errors
else
ShowMessage('Unknown error');
end;

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

谢谢，

但怎样主动 Raise 一个EInOutError 呢?

您好,

非常對不起, 我說錯了,

我自己在程式中寫
IF not directoryexists('c:\test2\') THEN BEGIN
raise EInOutError.Create('C:\TEST2\ NOT EXISTS');
END;
可以用, 沒發生 UNDECLARE 錯誤.

請問您 USES SYSUTILS 是在 INTERFACE 段還是 IMPLEMENTATION 段 ?

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

这是我的代码,蓝色那句出错: 

unit SULog;
interface
const
FILENAME_LOG = 'C:\FTPLOG.TXT';
procedure InitializeLog;
procedure LogIt(const sLogText: String);
procedure LogToFile(const sLogText: String; sFileName: String);

implementation
uses
SysUtils;
procedure InitializeLog;
begin
if FileExists(FILENAME_LOG) then
eleteFile(FILENAME_LOG);
end;
procedure LogIt(const sLogText: String);
begin
LogToFile(sLogText,FILENAME_LOG);
end;
procedure LogToFile(const sLogText: String; sFileName: String);
var
F : TextFile;
begin
sFileName := SysUtils.Trim(sFileName);
if sFileName = '' then
raise EInOutError.Create('Blank file name passed to LogToFile');
AssignFile(F,sFileName);
if FileExists(sFileName) then
Append(F)
else
Rewrite(F);
try { finally }
Writeln(F,sLogText);
Flush(F); // just in case
finally
CloseFile(F);
end;
end;
end.

我用的是D7
我抓你整個code 下來編譯,只有 eleteFile(FILENAME_LOG); 少一個 D
其他完全正常,可以run耶


===================引 用 xxiaowang 文 章===================
这是我的代码,蓝色那句出错:

unit SULog;
interface
const
FILENAME_LOG = 'C:\FTPLOG.TXT';
procedure InitializeLog;
procedure LogIt(const sLogText: String);
procedure LogToFile(const sLogText: String; sFileName: String);

implementation
uses
SysUtils;
procedure InitializeLog;
begin
if FileExists(FILENAME_LOG) then
eleteFile(FILENAME_LOG);
end;
procedure LogIt(const sLogText: String);
begin
LogToFile(sLogText,FILENAME_LOG);
end;
procedure LogToFile(const sLogText: String; sFileName: String);
var
F : TextFile;
begin
sFileName := SysUtils.Trim(sFileName);
if sFileName = '' then
raise EInOutError.Create('Blank file name passed to LogToFile');
AssignFile(F,sFileName);
if FileExists(sFileName) then
Append(F)
else
Rewrite(F);
try { finally }
Writeln(F,sLogText);
Flush(F); // just in case
finally
CloseFile(F);
end;
end;
end.

------
額有朝天骨,眼中有靈光

用回 D7 好了，Delphi8 不熟。