Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
type Ttrans = record
       nBcar : byte  ;
       Ligne : array[1..26] of char ;
... puis lecture ... :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
      begin
              read ( Ftrans,t);
              memo1.lines.add(leftstr(t.Ligne,t.nbcar));
      end;