Code: Alles auswählen
TranslateUnitResourceStrings('lr_const',poDirectory + 'lr_const.' + AppConfig.rSprache + '.po');
Code: Alles auswählen
DateSeparator := '.';
ShortDateFormat := 'dd.mm.yyyy';
Im Hauptprogramm gelingt es mir nicht die Anzeige des Datums korrekt zu formatieren (lokalisieren also mit de/en zu übersetzen).
Code: Alles auswählen
var iKW : Integer;
begin
dt_UserDateTime := Now();
iKW := WeekOfTheYear(dt_UserDateTime);
case AppConfig.rViewDateTime of
// 0 : ; // OFF;
....
4 : Label_UserDateTime.Caption := FormatDateTime('dddd, dd.mm.yyyy (KW ' + IntToStr(iKW) + ') - hh:mm',dt_UserDateTime);
....
else
begin
// Ausgabe deaktiviert
end;
end;