reset function error(100分)

H

hdlhuixx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-25

• #1

when i call reset function occur invalid typecast error in the delphi.

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-25

• #2

Reset函数中的参数应该是文件类型，看看你的参数是不是文件类型，或者转换是否合法

 

F

foxphone2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-25

• #3

传入参数，和函数的参数类型不匹配？

 

H

hdlhuixx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-25

• #4

no,all is right,because the programm is right in other program.look like project option have some problem.

 

H

hdlhuixx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-25

• #5

Function readtextfil(filename:string):Boolean;
Var
s,s1:string;
F:textfile;
begin
if filename = '' then
begin
result:=false;
exit;
end;
AssignFile(F,filename);
Reset(F);//here occur error
while not eof(F) do
begin
readLn(F,s);
....
end;
end;
CloseFile(F);
end;

 

X

xiammy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-25

• #6

no code, no answer

 

H

hdlhuixx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-25

• #7

Function readtextfil(filename:string):Boolean;
Var
s:string;
F:textfile;
begin
if filename = '' then
begin
result:=false;
exit;
end;
AssignFile(F,filename);
Reset(F);//here occur error
while not eof(F) do
begin
readLn(F,s);
....
end;
CloseFile(F);
end;

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-25

• #8

看来是你的编译器或者操作系统有问题...
你的代码在我这边很好！

 

H

hdlhuixx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-25

• #9

i think that it is project option cause,,because if i copy this source code in new project to use same dehphi version,no problem.

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-26

• #10

那你就新建一个工程，然后把所有的单元再重新加入新的单元应该就解决问题了...

 

H

hdlhuixx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-26

• #11

多人接受答案了。