Ver Mensaje Individual
  #2  
Antiguo 14-11-2005
[Gunman] [Gunman] is offline
Miembro
 
Registrado: dic 2004
Ubicación: Pedreguer.
Posts: 355
Reputación: 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