Un code (qui me paraît) simple, mais je coince

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:

---

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 :

Citation:

---

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

---

Pièce jointe 658318Pièce jointe 658319

Mais où est donc le problème ?

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 !

Citation:

---

Envoyé par 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 !

---

la decription des 2 champs dans les images ci-dessus

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:

---

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

---

Citation:

---

Envoyé par 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:

---

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