Literal semana y mes sale en inglés

[Casimiro Noteví]

Rectifico con lo de chapuza, lo de los idiomas tal y como comenta mightydragonlor, está documentado y explican cómo cambiarlo, el único "problema" es que no están todavía las traducciones a algunos idiomas, entre ellos el español, pero al ser un proyecto open source cualquiera puede colaborar traduciéndolo

[fidel]

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.

[[mightydragonlor]]

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.

Basicamente lo que debes hacer es:

Código Delphi [-]
uses translations;

Código Delphi [-]
procedure TranslateResStrings;     //del ejemplo editor en lazreport
begin
    TranslateUnitResourceStrings('LCLStrConsts','lclstrconsts.%s.po','es','');
end;

initialization
     {$I principal.lrs}
     TranslateResStrings;
end.

Esto lo he sacado de hispalazarus