Discussion :

[Papy214]

Bonjour

Est-ce que l'un d'entre vous pourrait tester ces 3 lignes de code dans Sydney svp ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
var
  S: string;
  Dte: TDatetime;
begin
  S := 'Bonjour le monde';
  if System.DateUtils.TryISO8601ToDate(S, Dte) then
    ShowMessage('C''est une date');

Chez moi ça donne:

---------------------------
Notification des exceptions du débogueur
---------------------------
Le projet Project2.exe a déclenché la classe d'exception EConvertError avec le message 'Aucun argument pour le format 'Chaîne date incorrecte : %s %s''.
---------------------------
Arrêter Continuer Aide
---------------------------

[ShaiLeTroll]

Sans tester, je dirais qu'il suffit de regarder le code
le CreateFmt de l'exception ne doit pas passer assez de valeur

vérifie rtl\common\System.RTLConsts.pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  { System.DateUtils }
  SInvalidDateString = 'Invalid date string: %s';
  SInvalidTimeString = 'Invalid time string: %s';
  SInvalidOffsetString = 'Invalid time Offset string: %s';

vérifie rtl\common\fr\System.RTLConsts.pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  { System.DateUtils }
  SInvalidDateString = 'Chaîne date incorrecte : %s %s';
  SInvalidTimeString = 'Chaîne heure incorrecte*: %s';
  SInvalidOffsetString = 'Chaîne décalage horaire incorrecte*: %s';

Seattle contient le code ci-dessus mal localisé en FR
Faut modifier rtl\common\fr\System.RTLConsts.pas (ou installer un patch si il existe)
gros foirage de l'intégration de la traduction avec trop de %s ou alors ces *

[Papy214]

Si même ce genre de fonction qui existe depuis des lustres n'est pas vérifiée, ça va devenir pénible. :-)

Modifier le source de Delphi, c'est pas vraiment dans mes habitudes, alors je me débrouillerai avec un regex.

Merci pour ta réponse

[Andnotor]

Il faut croire que le développeur a désactivé les "notifications sur les exceptions du langage".

Mais cette erreur n'apparaitra pas hors débogueur et TryISO8601ToDate retournera faux comme il se doit même si l'exception originale (conversion) est remplacée par la nouvelle (arguments)

[SergioMaster]

Il faut croire que cela n'aurait pas été signalé ! Il faut dire que TryISO8601ToDate j'avoue ne pas avoir utilisé.
En tout cas s'il s'agit d'un erreur de localisation vite le signaler pour que la 10.4.2 le prenne en compte (quoique ...)

[ShaiLeTroll]

Si même ce genre de fonction qui existe depuis des lustres n'est pas vérifiée, ça va devenir pénible. :-)
Modifier le source de Delphi, c'est pas vraiment dans mes habitudes, alors je me débrouillerai avec un regex.

Pour les Consts de ressource, je me generais pas, surtout que gérer une langue non native de Delphi, faut le faire soi-même
En D7, j'ai plusieurs fois changer les sources du SOAP (pas l'officiel, j'ajoutais une copie dans le projet)

Pour l'ISO8601, essaye ce code TSLTISO8601DateTime.TryStringToDate

c'est ultra simpliste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
//------------------------------------------------------------------------------
class function TSLTISO8601DateTime.TryStringToDate(const S: string; out ADate: TDate; AExtendedFormat: Boolean = True): Boolean;
var
  lFormatSettings: TFormatSettings;
  SBase: string;
  StartPos: Integer;
  ReverseRead: PChar;
  Year, Month, Day: Word;
  ResultD: TDateTime;
begin
  Result := False;
  ADate := 0;
 
  lFormatSettings := TFormatSettings.Create();
  if AExtendedFormat then
  begin
    lFormatSettings.DateSeparator := SEPARATOR_DATE_EXTENDED;
    lFormatSettings.ShortDateFormat := FORMAT_DATE_EXTENDED;
    if TryStrToDate(S, ResultD, lFormatSettings) then
    begin
      ADate := ResultD;
      Result := True;
    end;
  end
  else
  begin
    if Length(S) >= LENGTH_DATE_BASE then
    begin
      StartPos := 1;
      ScanToNumber(S, StartPos);
      SBase := Copy(S, StartPos, LENGTH_DATE_BASE);
      if Length(SBase) = LENGTH_DATE_BASE then
      begin
        ReverseRead := PChar(SBase);
        Inc(ReverseRead, LENGTH_DATE_BASE);
 
        try
          Day := ReadWord(ReverseRead, LENGTH_DATE_DAY_BASE);
          Month := ReadWord(ReverseRead, LENGTH_DATE_MONTH_BASE);
          Year := ReadWord(ReverseRead, LENGTH_DATE_YEAR_BASE);
 
          if TryEncodeDate(Year, Month, Day, ResultD) then
          begin
            ADate := ResultD;
            Result := True;
          end
        except
          on E: Exception do
            {$IFDEF DEBUG_SLT_ISO8601}OutputDebugISO8601('TryStringToDate : ' + E.Message);{$ENDIF DEBUG_SLT_ISO8601}
        end;
      end;
    end;
  end;
end;

[pprem]

Pour moi rien de choquant : l'exception n'apparaît qu'en débogage pas en dehors.

La fonction renvoie bien true/false et la date lorsqu'elle arrive à la traiter depuis la chaine de caractères.

C'est donc conforme aux specs pas la peine de signaler quoi que ce soit sur QA sur ce coup là.

[SergioMaster]

Pour moi rien de choquant : l'exception n'apparaît qu'en débogage pas en dehors.

Pas d'accord Patrick, même si effectivement ce n'est qu'une exception de débogage il s'agit d'un bogue mineur dû à la localisation, facile à corriger alors pourquoi ne pas le faire et laisser trainer ça

[Andnotor]

Pour moi rien de choquant

Si quand même. Ici c'est plus ou moins identique par l'utilisation d'une fonction TryXXX qui intègre un gestion d'exception mais un appel à ISO8601ToDate retournera une erreur incohérente.