TIniFile.Create本来就不创建文件,在写时才真正创建,这很好啊,最大程度节约资源

解决方案 »

  1.   

    用API吧:
    向.INI文件写入字符串 
    WritePrivateProfileString( 
    'windows', // []中标题的名字 
    'load', // 要写入“=”号前的字符串 
    'accca', //要写入的数据 
    'c:\forwin95\win.ini' // 调用的文件名 
    ); var 
    strResult:pchar; 
    begin 
    GetPrivateProfileString( 
    'windows', // []中标题的名字 
    'NullPort', // =号前的名字 
    'NIL', // 如果没有找到字符串时,返回的默认值 
    strResult, //存放取得字符 
    100, //取得字符的允许最大长度 
    'c:\forwin95\win.ini' // 调用的文件名 
    ); 
    edit1.text:=strResult; //显示取得字符串 
    向.INI文件写入整数 
    WritePrivateProfileSection( 
    'windows', // []中标题的名字 
    'read=100', // 要写入的数据 
    'c:\forwin95\win.ini' // 调用的文件名 
    );    及GetPrivateProfileSection....