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