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: 36
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 cEntornocAccesocTablas;

void __fastcall TForm1::btnSaveClick(TObject *Sender) {
  
TIniFileini = 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) {

  
TIniFileini = 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) {
  
TIniFileini = new TIniFile(iniName);
  
TStringssl = 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