Ver Mensaje Individual
  #7  
Antiguo 12-01-2005
VRO VRO is offline
Miembro
 
Registrado: abr 2004
Posts: 230
Reputación: 23
VRO Va por buen camino
Me respondo

POr si alguien le interesa, ya encontré como hacer el archivo INI, es muy fácil y en el ejemplo que puse en el hilo se ve claramante, lo que hace el ocecarse...... y estar cansada.

Pues bien aqui os paso en código la forma en el que lo hice:
Código:

function GetUser(S: String): String;
begin
  { Return a user value }
  { Could also be splitted into separate GetUserName and GetUserCompany functions }
  if S = 'Nombre y nif' then
    Result := UserPage.Values[0]
  else if S = 'Empresa' then
    Result := UserPage.Values[1]
  else if S = 'Direccion, población y provincia' then
    Result := UserPage.Values[2]
  else if S = 'Teléfono y fax' then
    Result := UserPage.Values[3];

  if S = 'Nombre Servidor' then
    Result := UsagePage.Values[0]
  else if S = 'Nombre usuario Base de datos' then
    Result := UsagePage.Values[1]
  else if S = 'Contraseña' then
    Result := UsagePage.Values[2];
end;


end.

[INI]
Filename: "{win}\Contadores1.ini"; Section: "REGISTRAR"; Key: "Nombre y Nif"; String: {code:GetUser|Nombre y nif}
Filename: "{win}\Contadores1.ini"; Section: "REGISTRAR"; Key: "Empresa"; String: {code:GetUser|Empresa}
Filename: "{win}\Contadores1.ini"; Section: "REGISTRAR"; Key: "Dirección, población y provincia"; String: {code:GetUser|Direccion, población y provincia}
Filename: "{win}\Contadores1.ini"; Section: "REGISTRAR"; Key: "Teléfono y fax"; String: {code:GetUser|Teléfono y fax}
Filename: "{win}\Contadores1.ini"; Section: "SERVIDOR"; Key: "Nombre Servidor"; String: {code:GetUser|Nombre Servidor}
Filename: "{win}\Contadores1.ini"; Section: "SERVIDOR"; Key: "Nombre usuario Base de datos"; String: {code:GetUser|Nombre usuario Base de datos}
Filename: "{win}\Contadores1.ini"; Section: "SERVIDOR"; Key: "Contraseña"; String: {code:GetUser|Contraseña}
Lo que he hecho es crear una función llamada GetUser que devuelve un String, este String es el que va a quedar grabado en el archivo.ini.Escribo la instruccion por cada uno de los datos que devuelve la funciín, es decir, por cada uno de los datos que quiero grabar en el INI

Espero que sirva de ayuda a alguien

Gracias por toda la ayuda que me han prestado
Responder Con Cita