Bonjour,

Je souhaite lire un fichier texte dont les lignes peuvent correspondre à 2 structures différentes:

Exemple:
NO REFART 00125Designation
OR REFART Motif refus

Les 2 premiers char de ligne permettent d'identifier sa structure.

J'ai déclaré :

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
Type
  TStruc_no = record
        type : string[3]
        Ref : string[11]
        Qty : string[5]
        Des : string[50]
     end;
 
  TStruc_or = record
        type : string[3]
        Ref : string[11]
        Motif : string[150]
     end;
 
Var
   ligne_no : TStruc_no;
   ligne_or : Tstruc_or;
   ligne : string;

Dans mon code je voudrais faire :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
//code
  Readln(fichier,ligne);
  if (copy(ligne,1,2) = 'NO')
    then ligne_NO := ligne;
 
  if (copy(ligne,1,2) = 'OR')
    then ligne_OR := ligne;
mais ça ne fonctionne pas.

Idem pour :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
//code
  ligne := ligne_NO;
  wrtieln(fichier,ligne);
Comment dois je faire ?

Par avance merci.

Jérôme