关于读取TXT或INI文件的问题。大虾们帮帮忙。。。(50分)

GetPrivateProfileString('wenjian','dir','0',strResult,300,
'F:/learn/游戏启动/xxinfo.txt');
edit1.text:=strpas(strResult); //显示取得字符串

为什么edit.text会变乱码？？

设置strresult:widestring;看看。

var
strResult:string;
begin
setlength(strResult,300);
GetPrivateProfileString('Roomfile.title','caption','0',pchar(strResult),300,'F:/xwcInfo.ini');
setlength(strResult,strlen(pchar(strResult)));
edit1.text:=strResult;
end;
没有分配内存!!!!