Bonjour, je ne sais pas vraiment si je poste mon message au bon endroit, c'est le premier que je poste c'est pour cela. Je viens de découvrir ce site car je suis actuellement en stage et je peux vous dire qu'il m'a énormément dépanné ! Bravo et merci !
Je vous explique donc mon problème : j'ai pour "mission" de migrer une application (plus de 50000 lignes de codes) crée sous Delphi 7, vers Delphi XE sous seven. Il y a donc le passage en Unicode qui m'a au préalable posé problème, mais j'ai rapidement trouvé la solution. Or la, je suis presque à la fin, il ne me reste plus que quelques erreurs et avertissements. Mais je suis en panne. Mon message d'erreur est le suivant : "W1000 Le symbole 'Time' est déprécié."
Voici le code ou se trouve l’erreur (désolé je ne sais pas comment vous faites pour faire cela dans une nouvelle petite fenêtre )
Malheureusement ce n'est pas le seul problème ou je bloque...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Function FichierModifie(NomFichier : String80; Var TimeFichier: Integer): Boolean; Var Sr : TsearchRec; Begin If (FindFirst(String(NomFichier), faAnyFile, Sr) = 0) And (Sr.Time (*erreur !!*) <> TimeFichier) Then Begin TimeFichier := Sr.Time; Result := TRUE; End Else Result := FALSE; FindClose(sr); End;
Merci d'avance pour votre aide.
Partager