Leer fichero ini

[ecfisa]

Hola Angel.

Estuve probando, básicamente con tu código y no tengo ningún problema, te adjunto el código:

Código PHP:

#include <inifiles.hpp>

AnsiString iniName = ChangeFileExt(Application->ExeName, ".ini");
AnsiString cEntorno, cAcceso, cTablas;

void __fastcall TForm1::btnSaveClick(TObject *Sender) {
  TIniFile* ini = new TIniFile (iniName);

  ini->WriteString("Datos", "Entorno", "C:\\DatAfi21\\DatAfi21\\Gia.ini");
  ini->WriteString("Datos", "Acceso" , "C:\\DatAfi21\\DatAfi21\\Acceso");
  ini->WriteString("Datos", "Tablas" , "C:\\DatAfi21\\DatAfi21\\Tablas");

  delete ini;
}

void __fastcall TForm1::btnToStringClick(TObject *Sender) {

  TIniFile* ini = new TIniFile(iniName);

  cEntorno = ini->ReadString("Datos", "Entorno", cEntorno);
  cAcceso  = ini->ReadString("Datos", "Acceso" , cAcceso);
  cTablas  = ini->ReadString("Datos", "Tablas" , cTablas);

  delete ini;
  Memo1->Clear();
  Memo1->Lines->Add(cEntorno);
  Memo1->Lines->Add(cAcceso);
  Memo1->Lines->Add(cTablas);
}

void __fastcall TForm1::btnToStringsClick(TObject *Sender) {
  TIniFile* ini = new TIniFile(iniName);
  TStrings* sl = new TStringList;

  ini->ReadSectionValues("Datos", sl);
  Memo2->Clear();
  Memo2->Lines->Assign(sl);

  delete ini;
  delete sl;
 } 


Muestra:


Saludos