Discussion :

[micoudic]

Bonjour,

Je cherche à inverser une date, contenue dans un champ string (DATE, 10 car), dans un autre champ, de type calclulé (WDate, string, 10 car) :

Code :

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

1
2
3
4
  // Change DATE (AAAA/MM/JJ) en WDate (JJ/MM/AAAA)
  Table1WDate := copy(Table1DATE,9,2) + '/'
               + copy(Table1DATE,6,2) + '/'
               + copy(Table1DATE,1,4);

J'obtiens ce message d'erreur :

ann_dm.pas(244,16) Error: Incompatible types: got "ShortString" expected "TStringField"

Mais où est donc le problème ?

[der§en]

Il faudrais nous donner a quoi correspond Table1DATE , car visiblement, ce n’est pas une string, il doit te manquer un truc du genre .ToString (ou .AsString) quelque part !

[micoudic]

Il faudrais nous donner a quoi correspond Table1DATE , car visiblement, ce n’est pas une string, il doit te manquer un truc du genre .ToString (ou .AsString) quelque part !

la decription des 2 champs dans les images ci-dessus

[der§en]

Si tu regardes ceci : https://www.freepascal.org/docs-html...ringfield.html

Tu peux voir qu’il te manque un .Value à chaque fois que tu utilises ce type de champ.

Comme cela sans être devant mon Lazarus, je dirais :

Code :

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

Table1WDate.Value := copy(Table1DATE.Value,9,2) + '/'+ copy(Table1DATE.Value,6,2) + '/' + copy(Table1DATE.Value,1,4);

[micoudic]

Si tu regardes ceci : https://www.freepascal.org/docs-html...ringfield.html

Tu peux voir qu’il te manque un .Value à chaque fois que tu utilises ce type de champ.

Comme cela sans être devant mon Lazarus, je dirais :

Code :

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

Table1WDate.Value := copy(Table1DATE.Value,9,2) + '/'+ copy(Table1DATE.Value,6,2) + '/' + copy(Table1DATE.Value,1,4);

Suis-je bête, mais c'est exactement ça !

Merci en tout cas