Ver Mensaje Individual
  #2  
Antiguo 01-10-2004
Avatar de AGAG4
AGAG4 AGAG4 is offline
Miembro
 
Registrado: ago 2004
Ubicación: Los Mochis, Sinaloa, México
Posts: 1.420
Reputación: 21
AGAG4 Va por buen camino
Ya lo intente de esta forma pero no se que es lo que esta pasando, me crea el archivo pero no le asigna nada al mismo, siendo que el campo Blob tiene valores.
Código Delphi [-]
    RutaIni:='c:\visual\tmp\variables.ini';
    List := TStringList.Create;
                                    //Campo BLOB
    Line :=dmEspBabatsa.tVariablesVARIABLES.Value;
    List.SaveToFile(RutaIni);
    List.Free;
    Try
      Vars:=TStringList.Create;
      With TIniFile.Create(RutaIni) Do Begin
                                  //Variable=[TotRegFac]
        ReadSectionValues(Variable,Vars);
                                 //Quiero que me regrese el valor de [TotRecFac], que es=18
        result:=Vars.Values[Variable];
        Free;
      End;
   Finally
     Vars.Free;
   End;

Cualquier sugerencia se los agradezco.
Responder Con Cita