Bonjour,

Je cherche à récupérer des variables issues d'un fichier log.
Ce fichier log comporte des enregistrements sur deux lignes :
Nom
Prenom
il comporte 160 enregistrements. (320 lignes).

Dans le programme principal, je déclare un type d'enregistrement sur deux lignes, un file of type d'enregistrement sur deux lignes, un tableau d'enregistrements sur deux lignes.

Je fais un boucle for avec un seul tour, et lorsque je lis le contenu de l'enregsitrement, c'est plus de 4 fois un enregistrement?

Toute aide est bienvenue.

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
25
26
27
28
29
30
31
program TableauString;
{$MODE DELPHI}
uses sysutils;
type
	PPersonne = record
		Nom, Prenom : string[20];
		end;
	DataString = array of PPersonne;
	Fichier = file of PPersonne;
var
	Enregistrement : Fichier;
	DataS : PPersonne;
	StringDatas : DataString;
	k : Integer;
	cpt : Integer;
begin
	Datas.Nom := '';
	Datas.Prenom := '';
	writeln('Combien d''enregistrements de noms et prenoms voulez-vous charger?');
	readln(k);
	assign(Enregistrement,'datastring.log');
	reset(Enregistrement);
	for Cpt := 1 to k do
		begin
			read(enregistrement,Datas);
			write(DataS.Nom);
			//write(DataS.Prenom);
		end;
	{/rof}
close(Enregistrement)
end.
Code datastring.log : 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
25
26
Butcher
Mike
Millar
Kevin
Bleacher
Bob
Slusarski
Joe
Butcher
Mike
Millar
Kevin
Cross
Don
Miller
Damian
Butcher
Mike
Millar
Kevin
Cross
Don
Miller
...
...
etc ....

./tableauString
Combien d'enregistrements de noms et prenoms voulez-vous charger?
1
utcher
Mike
Millar
Kevin
Bleacher
Bob
Sluvin
Bleacher
Bob
Slu