Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 14-11-2005
[Gunman] [Gunman] is offline
Miembro
 
Registrado: dic 2004
Ubicación: Pedreguer.
Posts: 355
Poder: 22
[Gunman] Va por buen camino
se puede hacer de muchas formas, normalmente se hace leyendo los valores
Componente.Caption des de un .ini o un xml.
Yo siempre lo he hecho con un ini, por ejemplo:

Código Delphi [-]
procedure ChangeLanguage(Lang: String);
 var
   IniFile: TIniFile;
 begin
   IniFile := TIniFile.Create('.\'+lang+'.ini'); //abre el archivo ini con el nombre indicado en lang
   try
     Componente1.Caption := IniFile.ReadString('Form1','Componente1','Componente1');
     //Lee una cadena de texto en la sección Form1, Componente1
     Componente2.Caption := IniFile.ReadString('Form1','Componente2','Componente2');
     Form2.Componente1.Caption := IniFile.ReadString('Form2','Componente1','Componente1');
   finally
     IniFile.Free; //Libera IniFile
   end;
 end;
Luego para ejecutarlo, pues nada:

Código Delphi [-]
  ChangeLanguage('Español');  //por ejemplo
__________________
l2prog.co.nr

Última edición por dec fecha: 14-11-2005 a las 18:58:28. Razón: Ajustar el ancho del texto.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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


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


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