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