Ver Mensaje Individual
  #10  
Antiguo 11-06-2010
fidel fidel is offline
Miembro
 
Registrado: mar 2005
Posts: 381
Reputación: 20
fidel Va por buen camino
Encuentro tres obstaculos:

1. Mi inglés es demasiado pobre.
2. No me veo capacitado para modificar lo que ahí se supone que explica.
3. Al reconstruir Lazarus me da un error cuando llega a la reconstrucción de los ejemplos y se detiene.

Por lo tanto voy por el camino fácil y con unas líneas más de código pongo la fecha en español.

Código Delphi [-]
Const
  Mes: Array[1..12] of String = ('enero', 'febrero', 'marzo', 'abril',
       'mayo', 'junio', 'julio', 'agosto', 'septiembre', 'octubre',
       'noviembre', 'diciembre');
  DiaSemana: Array[1..7] of String = ('domingo','lunes', 'martes',
             'miércoles', 'jueves', 'viernes', 'sábado');

begin
  //fecha
  LFecha.Caption := DiaSemana[DayOfWeek(Date)] + ', ' +
  IntToStr(DayOf(Date)) + ' de ' + Mes[MonthOf(Date)] + ' de ' +
  IntToStr(YearOf(Date));

Gracias a todos.

Un saludo.
Responder Con Cita