BCB读取ini文件

    TIniFile *DataIni;
    AnsiString zport;
    AnsiString e = ExpandFileName("..//Server.ini"); 
    if(FileExists("..//Server.ini"))
    {
        DataIni = new TIniFile(e);
        SqlServer = DataIni->ReadString("Sql","SqlServer","");
        zport = DataIni->ReadString("Port","PortData","");
        delete DataIni;
    }

 

Server.ini文件:

[Sql]

SqlServer=SERVER1

[Port]

PortData=9999