Discussion :

[odylight]

Bonjour,
j'ai cette procedure qui affiche la date et l'heure au lancement de l'app.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TMainForm.FormCreate(Sender: TObject);
var
  Present: TDateTime;
  x: string;
begin
  Present:= Now;
  x := FormatDateTime('mmmm d, yyyy " - " hh:mm AM/PM " UTC-Disclaimer"', Present);
  SubTitle.Text := x;
  //--------------------------------------------------------------------------------------------------------------------
end;

mais dans l'execution avec debug, j'obtiencette erreur


Quelques conseils? merci!

[popo]

Ceci fonctionne parfaitement :

Code Delphi :

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

1
2
Present := Now;
x := FormatDateTime('mmmm d, yyyy " - " hh:mm AM/PM " UTC-Disclaimer"', Present);

Donc ton problème doit se situer sur SubTitle.Text := x;.
Je soupçonne la présence d'un masque de saisie sur ce composant.

[ShaiLeTroll]

C'est une erreur de traduction de SInvalidDateString, je l'avais mentionné déjà ici


Il faut corriger

Code :

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

1
2
 
...\source\rtl\common\fr\System.RTLConsts.pas(549):   SInvalidDateString = 'Chaîne date incorrecte : %s %s';

en

Code :

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

1
2
 
...\source\rtl\common\fr\System.RTLConsts.pas(549):   SInvalidDateString = 'Chaîne date incorrecte : %s';

Ensuite, cela devrait produire une nouvelle Exception qui sera plus en raccord avec le sujet
SubTitle est un TEdit ou autre chose ?
Car normalement l'erreur SInvalidDateString c'est lors d'un String To Date et pas l'inverse (et encore on le trouve que pour des versions ISO8601 de la conversion)


Sinon, on peut faire un code plus compact

Code :

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

1
2
3
4
procedure TMainForm.FormCreate(Sender: TObject);
begin
  SubTitle.Text := FormatDateTime('mmmm d, yyyy " - " hh:mm AM/PM " UTC-Disclaimer"', Now());
end;

[odylight]

Merci pour vos réponses et désolé pour le délai,
En fait le SubTitle est un TLabel. Et ayant lu les résolutions évoquées dans le lien que t'as posté, j'ai d'abords essayé de retirer les lignes de procédure une à une et j'ai remarqué que l'erreur se produisait lorsque je procède avec un livebinding avec RESTDebugger sur une TListView. Une fois retiré, il ne se produit plus d'erreur de chaine de date. J'ai comme l'impression que c'est un conflit avec le Time/Timestamp de l'API
Etapes:
1- API: https://api.apilayer.com/exchangerates_data/symbols
2- Avec RESTDebugger copier les composantes dans le TForm

[SergioMaster]

Donc, le problème, c'est que vous tentez de modifier SubTitle.Text dans le oncreate alors qu'il est déjà fourni avant par les Livebindings. Mauvaise idée.

https://apilayer.com/marketplace/exc...umentation-tab
selon cette doc la date est sous le format yyyy-mm-dd,
exemple :

Code JSON :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
{
  "date": "2018-02-22",
  "historical": "",
  "info": {
    "rate": 148.972231,
    "timestamp": 1519328414
  },
  "query": {
    "amount": 25,
    "from": "GBP",
    "to": "JPY"
  },
  "result": 3724.305775,
  "success": true
}

donc : La date n'est peut-être pas au format par défaut de votre poste

Question : qu'est-ce que vous aviez écrit comme liaison ?

[odylight]

...

Question : qu'est-ce que vous aviez écrit comme liaison ?

Sinon, juste après la modification du SubTitle j'entame un ExecuteAsync: je souhaitais dans ce cas faire pivoter les données de la table obtenue du "Json Object" en "Json Array"

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
 
procedure TForm.FormCreate(Sender: TObject);
var
  Present: TDateTime;
  x: string;
begin
  Present:= Now;
  x := FormatDateTime('mmmm d, yyyy " - " hh:mm AM/PM " UTC-Disclaimer"', Present);
  SubTitle.Text := x;
  //--------------------------------------------------------------------------------------------------------------------
  RESTReq.ExecuteAsync(procedure begin
    sFDMemTable.EmptyDataSet;
    for var I := 0 to FDMemTable.Fields.Count-1 do
    begin
      sFDMemTable.AppendRecord([FDMemTable.Fields.Fields[I].FieldName, FDMemTable.Fields.Fields[I].Value])
      FDMemTable.Close;
    end;
  end);
end;

[SergioMaster]

Bonjour,

Vous ne m'avez pas répondu et quel est le rapport entre votre dernière réponse et une date ? AUCUN !

Qu'est-ce que vous vous embêtez à recharger une table qui peut être remplie directement par un RESTResponseDatasetAdapter !
Image2 cliquez sur [Appliquer] puis le [Copier composants] ajoutera, en plus des RESTIdentifier,RESTClient,RESTRequest et RESTResponse, le RESTResponseDatasetAdapter et un FDMemtable

[ShaiLeTroll]

On passe d'une pauvre erreur à un PIVOT
Et en plus on n'a pas le code du PIVOT mais un autre semble sans rapport.