Discussion :

[Zacheus]

Bonjour

En FireMonkey, le TEdit ne dispose pas de la propriété modified. Mais le TMSFMXEdit de TMS Software l'a.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
begin
  Showmessage(BoolToStr(TMSFMXEdit1.Modified));
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  with TMSFMXEdit1 do begin
    Text := 'Blabla';
    SetFocus;
  end;
end;

Le comportement me semble bizarre:

• Je lance le programme. Click sur le button -> 0 [OK]
  Si j'enlève un caractère (Blabl), le bouton renvoie -> -1 [OK]
• Je quitte le programme puis le relance. Click sur le button -> 0 [OK]
  Si j'ajoute un caractère dans le TMSFMXEdit (Blablab), le bouton me renvoie -> 0 []

Donc en résumant, la suppression d'une lettre dans le Text est considérée comme une modification alors que l'ajout d'un caractère ne l'est pas. Bug, mauvaise utilisation ?

Merci. Zac

[SergioMaster]

Bonjour,

Effectivement c'est surprenant, j'ai essayé ce code avec le même résultat.
Surprenant, sauf si la propriété modified n'indique pas un signe de modification du texte mais autre chose (faudrait regarder la doc mais j'ai pas le courage surtout parce que je ne sais plus ou j'ai mis cette de doc )
par contre j'ai regardé le source et j'ai l'impression que le modified ne fonctionne que s'il y a autocompletion

j'ai donc fait la chose suivante : autocompletion:=true sur le TMSFMXEdit

texte de départ : blabla
saisie d'un b à la fin le clic sur le bouton me dit que rien est modifié
suppression du b Clic sur le bouton : modified est true
rajout du b modified est true

il s'agit donc bien de la compréhension du modified qui est à voir dans la doc

[Zacheus]

texte de départ : blabla
saisie d'un b à la fin le clic sur le bouton me dit que rien est modifié
suppression du b Clic sur le bouton : modified est true
rajout du b modified est true

Bonjour, sans l'auto complétion, tu as le même résultat. C'est la suppression du caractère qui entraine le modified = true. Après tu rajoutes le b mais tu ne sais pas si le modified est modifié . Si oui il renvoie true et sinon, il renvoie quand même true puisqu'il a déjà été modifié.

J'ai la doc sous la main enfin le TMS Pack for FireMonkey DEVELOPERS GUIDE et je n'y trouve rien. Je préfèrerais ne pas aller voir dans le code. Je contacte TMS.
Cordialement. Zac

[tourlourou]

Réponse latérale : quid de l'événement OnChangeTracking ?

[Zacheus]

Réponse de TMS : Mise en place d'un correctif pour le problème, normalement disponible dans la prochaine version.

A Toulourou, ma requête Update (construite dynamiquement) ne modifie que les champs corrigés par l'utilisateur pour impacter au minimum la base réseau. Donc pour certains je suis en effet obligé de travailler sur les évènement des champs. Mais si une détection automatique disponible, je l'utilise. Sinon l'autre solution serait de faire une copie à l'ouverture de tous les champs de l'enregistrement et de comparer avant l'Update.

En Lazarus je travaillais avec des modified (d'ailleurs souvent surchargés quand ils existaient).

Cordialement. Zac.