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
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
应该改为: FileName:=ExtractFilePath(paramstr(0)) +'temp.ini';就可以了,我刚测试过了。
比如:
var a:TStringlist;
begin
a:=Tstringlist.Greate;
...
a.savetofile('文件名');
end;