读INI文件出错，急需(50分)

L

liyijincom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #1

如下代码有什么问题？直接读值是可以的，但是却读节点有问题，执行的时候报错
会不会是Str的初始化问题？由于时间比较急，没办法去试，请高手指点一二
function GetSectionFromIni(const FileName:String):TStrings;
var
IniFile: TIniFile;
Str:TStrings;
begin
Str:=nil;
if FileExists(FileName) then
begin
IniFile:=TIniFile.Create(FileName);
IniFile.ReadSections(Str);
IniFile.Free;
end;
result:=Str;
Str.Free;
end;

 

L

liyijincom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #2

错误是出在 IniFile.ReadSections(Str);这一句

 

D

dongberlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #3

function GetSectionFromIni(const FileName:String):TStrings;
var
IniFile: TIniFile;
Str:TStrings;
begin
Str:=TStringList.Create;
if FileExists(FileName) then
begin
IniFile:=TIniFile.Create(FileName);
IniFile.ReadSections(Str);
IniFile.Free;
end;
result:=Str;
Str.Free;
end;

 

L

liyijincom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #4

Str:=TStringList.Create;
这一句运行的时候会报错：
access violation at address 0000316D read of address 744581E5

 

小

小人物

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #5

Str.Free
//这一句必须去掉

 

D

dongberlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #6

procedure GetSectionFromIni(const FileName:String
var Str: TStrings)
var
IniFile: TIniFile;
begin
if FileExists(FileName) then
begin
IniFile:=TIniFile.Create(FileName);
IniFile.ReadSections(Str);
IniFile.Free;
end;
end;

 

V

varphone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #7

with TIniFile.Create(FileName) do begin
ReadSections(str);
result : str;
end;

 

Z

zhanggm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #8

错误是出在Str,你可把函数改成
function GetSectionFromIni(const FileName:String；Str:TStrings):Boolean;
var
IniFile: TIniFile;
begin
try
if FileExists(FileName) then
begin
IniFile:=TIniFile.Create(FileName);
IniFile.ReadSections(Str);
IniFile.Free;
end;
result:=True;
except
Result:=False;
endl
end;

 

L

liyijincom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #9

都没能解决问题，各位再想想，有什么高招？谢了

 

Z

zhanggm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #10

我的测试程序，可以的。
function GetSectionFromIni(const FileName:String;Str:TStrings):Boolean;
var
IniFile: TIniFile;
begin
try
if FileExists(FileName) then
begin
IniFile:=TIniFile.Create(FileName);
IniFile.ReadSections(Str);
IniFile.Free;
end;
result:=True;
except
Result:=False;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GetSectionFromIni('F:/PWIN98/win.ini',Memo1.Lines);
end;

 

L

liyijincom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #11

好象有点进展，正在改程序，如果通过即该送分

 

L

liyijincom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #12

已问题解决了，多谢zhanggm