5,930
社区成员
发帖
与我相关
我的任务
分享这段代码到底哪里有错?
var
tmppop: TStrings;
begin
if fileexits('.\mail.dat') then
tmppop.loadfromfile('.\mail.dat');
为什么一运行就说有访问冲突!
tmppop: TStrings;
begin
if fileexits('.\mail.dat') then
tmppop.loadfromfile('.\mail.dat');
为什么一运行就说有访问冲突!
...全文
请发表友善的回复…
发表回复
geodgehoul 2003-06-09
- 打赏
- 举报
Tstrings是个抽象类，不能被直接实例化啊
flyonet 2003-06-09
- 打赏
- 举报
好久没有动delphi了
tmppop: TStrings;不用创建吗？
tmppop: TStrings;不用创建吗？
NamasAmitabha 2003-06-09
- 打赏
- 举报
如果还不行
var
tmppop: TStrings;
begin
//tmppop:=TStringList.Create;
if fileexists(ExtractFilePath(Application.ExeName)+'mail.dat') then
tmppop.loadfromfile(ExtractFilePath(Application.ExeName)+'mail.dat');
var
tmppop: TStrings;
begin
//tmppop:=TStringList.Create;
if fileexists(ExtractFilePath(Application.ExeName)+'mail.dat') then
tmppop.loadfromfile(ExtractFilePath(Application.ExeName)+'mail.dat');
things 2003-06-09
- 打赏
- 举报
tmppop.lines.loadformfile('.\mail.dat');
//好象是lines属性吧
//好象是lines属性吧
NamasAmitabha 2003-06-09
- 打赏
- 举报
是fileexists不是fileexits
var
tmppop: TStrings;
begin
if fileexists('.\mail.dat') then
tmppop.loadfromfile('.\mail.dat');
var
tmppop: TStrings;
begin
if fileexists('.\mail.dat') then
tmppop.loadfromfile('.\mail.dat');
zerolx 2003-06-09
- 打赏
- 举报
他没有创建Tstrings的实例，你说运行会对吗？
catail 2003-06-09
- 打赏
- 举报
楼上的内容好象和访问冲突没什么关系呀！
zerolx 2003-06-09
- 打赏
- 举报
是不是应该
var
tmppop:Tstrings;
begin
try
tmppop:=TStrings.create;
try
if fileexits('.\mail.dat') then
tmppop.LoadFromFile('.\mail.dat');
except
showmessage('error');
end;
finally
tmppop.free;
end;
end;
var
tmppop:Tstrings;
begin
try
tmppop:=TStrings.create;
try
if fileexits('.\mail.dat') then
tmppop.LoadFromFile('.\mail.dat');
except
showmessage('error');
end;
finally
tmppop.free;
end;
end;
peterluolaw 2003-06-09
- 打赏
- 举报
No!
things 2003-06-09
- 打赏
- 举报
是不是.\mail.dat被其他程序打开了？
