帮我看看这段代码错在哪里？(29分)

K

kehtong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-09

• #1

if not FileExists(strLogFileName) then
begin
Edit1.Text := IntToStr(FileCreate(strLogFileName));
AssignFile(logFile,strLogFileName);
Append(logFile);
WriteLn(logFile,'----------------Web程序服务器日志--------------');
CloseFile(logFile);
end

在Append那里出错，为什么啊？

 

A

andy263

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-09

• #2

去掉就行了

 

W

weiwei81123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-09

• #3

文件还没有建立时应该用Rewrite

 

K

kehtong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-09

• #4

去掉不可以，同样错误定位到WriteLn(.....)

 

K

kehtong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-09

• #5

用ReWrite也不行，错误定位到ReWrite，FileCreate已经执行了，文件也创建了，就是写不进去。

 

X

XWHope

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-09

• #6

去掉FileCreate
Append换用Rewrite

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-09

• #7

if not FileExists(strLogFileName) then
begin
Try
AssignFile(logFile, strLogFileName);
append(logFile);
WriteLn(logFile,'----------------Web程序服务器日志--------------');
CloseFile(logFile);
except
end;
end

 

K

kehtong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-09

• #8

接受答案了.