Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Delphi para la web
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Colaboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-05-2012
hectorgn hectorgn is offline
Registrado
NULL
 
Registrado: abr 2011
Posts: 1
Poder: 0
hectorgn Va por buen camino
Equivalente al INI de windows

Hola a todos:

Quiero guardar ciertos parámetros del sistema que son locales a cada equipo, antes usaba el INI pero como estoy empezando con delphi y tratando de hacer la aplicación lo mas portable posible espero me pueden recomandar que utilizar para guardar estos parametros locales

De antemano gracias

Hector Gonzalez
Responder Con Cita
  #2  
Antiguo 06-05-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 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
Hoa hectorgn y bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Vamos a tu consulta...

Utilizando archivo .INI:
Código Delphi [-]
...
uses IniFiles;

procedure TForm1.FormCreate(Sender: TObject);
const        // Resolucion de confección
  Alto= 768;
  Ancho= 1366;
begin
  MRut.AdaptarResolucion(frMain, Alto, Ancho);
  with TIniFile.Create(ExtractFilePath(Application.ExeName)+'TodoRubro.INI')do
  try
    Left  := ReadInteger('FormLeft','Left',0);
    Top   := ReadInteger('FormTop','Top',0);
    Height:= ReadInteger('FormHeight','Height',768);
    Width := ReadInteger('FormWidth','Width',1024);
  finally
    Free;
  end;
end;

...

procedure TForm1.FormDestroy(Sender: TObject);
begin
  with TIniFile.Create(ExtractFilePath(Application.ExeName)+'TodoRubro.INI')do
  try
    WriteInteger('FormLeft','Left',Left);
    WriteInteger('FormTop','Top',Top);
    WriteInteger('FormHeight','Height',Height);
    WriteInteger('FormWidth','Width',Width);
  finally
    Free;
  end;
end;


Utilizando el registro de windows:
Código Delphi [-]
...
uses Registry;

procedure TForm1.FormCreate(Sender: TObject);
var
  R: TRegistry;
begin
  with TRegistry.Create do
  try
    RootKey:= HKEY_CURRENT_USER;
    if OpenKey('MiAplicacion', false) then
    begin
      Left:= ReadInteger('FormLeft');
      Top:= ReadInteger('FormTop');
      Height:= ReadInteger('FormHeight');
      Width:= ReadInteger('FormWidth');
    end;
  finally
    CloseKey;
    Free;
  end;
end;

...

procedure TForm1.FormDestroy(Sender: TObject);
begin
  with TRegistry.Create do
  try
    RootKey:= HKEY_CURRENT_USER;
    OpenKey('MiAplicacion', True);
    WriteInteger('FormLeft',Left);
    WriteInteger('FormTop',Top);
    WriteInteger('FormHeight',Height);
    WriteInteger('FormWidth',Width);
  finally
    CloseKey;
    Free;
  end;
end;

Para ampliar mas revisá estos enlaces:Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo 07-05-2012
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Poder: 24
maeyanes Va por buen camino
Hola...

También podrías usar archivos XML para guardar la configuración de tu aplicación.



Saludos...
__________________
Lee la Guía de Estilo antes que cualquier cosa. - Twitter
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
¿Equivalente de GetModuleHandleEx? DaasCook API de Windows 1 26-03-2011 23:06:51
Equivalente a ExecuteStatement gallipi Varios 3 18-06-2008 17:19:39
equivalente a SelObj zidfrid C++ Builder 0 30-08-2007 05:26:30
Equivalente de Key:=#0 Phacko Varios 1 11-08-2007 07:21:14
Equivalente de la Función First agonzalez SQL 1 24-06-2003 21:30:16


La franja horaria es GMT +2. Ahora son las 01:41:20.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi