Discussion :

[Ducmonster]

Bonjour

Voilà bien longtemps que je n'avais plus développé et me voici devant le probleme suivant :
Je dois lire des fichiers issus d'un programme développé en TP7.
Il est évident que le passage en 32 bits a modifié la taille des INTEGER... et aujourd'hui lorsque j'accède au fichier c'est du n'importer quoi.

Y a t il quelqu'un qui pourrait m'aider ?
(je ne peux pas faire évoluer ni remplacer le programme ecrit en TP7)

voici la structure du fichier
{ ----------------------- }
{ type record des donnees }
{ ----------------------- }

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
  type_id_cas =(entete,mesure);
 
  typentete = record
                  ref_cid     : string7;
                  date_mesure : string8;
                  sensibilite : integer;
                  sens_rot    : string2;
                  sens_pous   : integer;
                  temps_rot   : integer;
                  dephasage   : integer;
                  max_attendu : real;
                  Nbpt        : integer;
                end;
 
  typmesure = record
                  matricule    : string10;
                  point_acq    : ARRAY[1..64] OF INTEGER;
              end; {record}
 
  type_signal = record
                  case cas : type_id_cas of
                    entete : (var_entete : typentete);
                    mesure : (var_mesure : typmesure);
                end;

[edit]
Balises de code ajoutées par Pascal Jankowski
[/edit]

[MarcP]

tu dois pouvoir modifier la taille des int avec des paramètres au compilateur.
Sinon un bon vieux rechercher/remplacer t'aideras
Et tu saisis maintenant l'interet de coder "propre" et de pas mettre les tailles des integer en brut mais de faire un sizeof(integer);

[neilbgr]

Je remplacerai les integer (de TP7) en Smallint de Delphi