Discussion :

[Alex39570]

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 )

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;

Malheureusement ce n'est pas le seul problème ou je bloque...

Merci d'avance pour votre aide.

[Linkin]

D'après la documentation d'Embarcadero, il faudrait mieux utiliser:
- TimeStamp et DateTimeToFileDate

[Alex39570]

Merci beaucoup ça marche ! J'ai réalisé qu'il y avait une aide exprès !
Je vous embêtes encore avec un autre problème.
Voici mon message d'erreur : [DCC Erreur] ImportGPAO.pas(390): E2010 Types incompatibles : 'OpenString' et 'string'.
D'habitude pour ce type d'erreur ou d'avertissement, il me suffit de mettre String devant, placé au bon endroit. Le souci étant que je n'arrive pas à trouver d'info sur ce type "OpenString".

Code :

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

1
2
3
 //** On cherche la gamme grace au nom indiquer par la GPAO
        //** On lit le code traitement renseigne dans la gamme
        If Gam_Existante(numAtelier, nomGamme, nomFG) Then

J'ai quatre fois la même erreur et c'est à chaque fois la même ligne. Je précise que je ne suis pas l'auteur de l'application !

Description de Gam_Existante :

Code :

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

1
2
3
Function Gam_Existante(Four   : Integer;
                       Gam    : String;
                       Var fg : ShortString) : Boolean;

nomGamme et nomFG sont tout les deux des string et NumAtelier : Integer = 1;

Merci d'avance

[ShaiLeTroll]

nomGamme et nomFG sont tout les deux des string

Donc implicitement des UnicodeString, possible qu'en utilisant des AnsiString la conversion vers ShortString sera plus aisée !

[Alex39570]

ShaiLeTroll, tout d'abord je te remercie, indirectement tu m'as aidé plusieurs fois ces dernières semaines avec tes posts sur ce site.
Par contre, je ne saisi pas tout à fait, car je ne suis pas dans l'obligation de convertir tout les string non ? Juste les "String[80]" par exemple, deviennent des ShortString. Je n'ai pas compris ta réponse

Après plusieurs essais, en supprimant "FileCtrl" dans le uses, les erreurs "OpenString à String" n'apparaissent plus. Je voulais donc savoir si quelqu'un pouvait m'expliquer à quoi cela pouvait-être due, qu'est-ce qu'il y a dans ce "FileCtrl" ? En sachant qu'avant la suppression j'avais le warning suivant : "W1005 L'unité 'FileCtrl' est spécifique à une plate-forme". Après cette suppression, une erreur apparaît :"[DCC Erreur] rxFileUtil.pas(434): E2003 Identificateur non déclaré : 'SelectDirectory'". Quelle est donc la meilleure solution ?! En vous remerciant d'avance

Si je vous pose toutes ces questions, c'est parce que je suis un débutant en Delphi (4semaines) et mon maitre de stage et exceptionnellement absent 2 jours.

Cordialement Alex.

[ShaiLeTroll]

FileCtrl est indispensable si tu utilises SelectDirectory

Pour le ShortString ou String[80], n'ayant pas encore fait des tests à ce sujet en XE, je ne sais pas trop, il me semble que les deux sont AnsiString pour rétro-compatibilité donc sont rester ANSI contrairement au String qui est passé Unicode entre 7 et XE !

Essaye de passer String[80] en AnsiString[80]