Discussion :

[Sterne]

Bonjour,

J'ai une erreur de date que je n'arrive pas à résoudre dans mon projet.
A titre d'exemple, j'ai donc créé avec Delphi 11 un nouveau projet (Fichier/Nouveau/Application multi-périphérique).
J'y ai juste ajouté un bouton et le code :

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
    Showmessage(DateTimeToStr(now)+' / Longueur : '+IntToStr(Length(DateTimeToStr(now))));
end;

Si je l'exécute sous Windows, j'ai bien comme résultat : '29/03/2025 10:40:16 / Longueur : 19'
Je l'ai exécuté sous Android32 et Android64 avec 2 mobiles différents :
-sur le 1er, j'ai bien '29/03/2025 10:40:16 / Longueur : 19'
-sur le 2ème, j'ai '29/03/2025 / Longueur : 11'
Pourquoi je n'ai plus l'heure dans le résultat ?

Merci pour toute aide !

[SergioMaster]

Bonjour,

J'avais zappé cette question surtout que cela dépend du mobile.

Cependant, quelque chose me gênait dans le code, l'utilisation de DateTimeToStr.
Sachant que cette fonction dépend du système, plus exactement des paramètres de format (TFormatSettings) de l'OS, il serait judicieux de commencer par là, c'est-à-dire sous la forme DateTimeToStr(now,aformatsetting).
Autre solution, utiliser la fonction DateTimeToString

Code :

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

1
2
3
4
5
6
 
var s: string;
begin 
 DateTimeToString(s,now,'dd/mm/yyyy hh:nn:ss');
 Showmessage(s+' / Longueur : '+IntToStr(Length(s)));
end;

[Sterne]

Bonjour,

Effectivement, c'est DateTimeToStr qui posait problème sur certains mobiles.
J'utilise FormatDateTime et je n'ai plus de message d'erreur depuis.

Code :

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

1
2
3
4
 
begin 
   ShowMessage(FormatDateTime('dd/mm/yyyy hh:nn:ss', now));
end;

Merci beaucoup de ton aide.