Ver Mensaje Individual
  #7  
Antiguo 01-04-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita