var
inlists:TStringList;
begin    
    inlists:=TStringList.Create;
    inlists.Add('222wqwqw1sssdddd 10000');
    inlists.add('kk333333wwwwweee 20000');
    FileName:=' ' + ExtractFilePath(paramstr(0)) +'temp.ini';
    //showmessage(FileName);   //显示路径正确
    inlists.SaveToFile(FileName);
end;
我是用DELPHI6.0

解决方案 »

  1.   

    告诉你一个不好的问题:你的代码有问题,FileName:=' ' + ExtractFilePath(paramstr(0)) +'temp.ini';
        
    应该改为:  FileName:=ExtractFilePath(paramstr(0)) +'temp.ini';就可以了,我刚测试过了。
        
      

  2.   

    搞定了,原来FileName 不能有路径名,直接将FileName:='temp.ini';即可
      

  3.   

    在使用之前先要Greate
    比如: 
    var a:TStringlist;
    begin
     a:=Tstringlist.Greate;
     ...
     a.savetofile('文件名');
    end;
      

  4.   

     多谢gototop99(巴蒂),你更对, 下午给分,先暴露一下。