Discussion :

[ChPr]

Bonsoir à toutes et à tous,

Avec la procédure Append, il est possible d'ajouter du texte à la fin d'un fichier ... Texte.

Cette procédure ne fonctionne pas pour les autres types de fichiers. Or j'ai un fichier composé d'enregistrements (record) et je voudrais y ajouter toutes les X minutes un nouvel enregistrement sans avoir à ré-enregistrer tout le fichier et que cela fonctionne sous Windows et sous Linux.

Je n'ai pas trouvé de méthodes pour cela (peut-être mal cherché). En existe-t-il ?

J'ai essayé un transtypage :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
type
  TVals = record
    A, B: Integer;
  end;
 
var
  Vals: TVals
  F: Text;
...
AssignFile(F, MonFichier);
Append(F);
Write (F, string(Vals.A)+string(Vals.B)); {Plantage}
...

ça compile, mais ça plante à l'exécution. Il faut peut-être que je passe par un buffer ?

Merci de votre aide.

Pierre

[Dr.Who]

TFileStream!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
// creation
with TFileStream.Create(fileName, fmOpenReadWrite) do
try
  // on vas a la fin
  Position := Size;
  // on ecrit
  Write(Value, SizeOf(TValue));
finally
  // on libère
  Free;
end;

[batyann811]

Methode 1 : Lire tous les enregistrement du fichiers puis ajouter.

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
program FileTest;
 
uses SysUtils;
 
type 
  TVals=record
    A, B : Integer;
  end;
 
var
  Vals : TVals;
  F : file of TVals;
  I : Integer = 0;
begin
  Assign(F,'vals.bin');
  FileMode:=fmOpenReadWrite;
  Reset(F);  
  while not Eof(F) do
  begin
    Read(F, Vals);
    WriteLn(I, ': A=', Vals.A, ' B=', Vals.B);
    I := I + 1;
  end;
 
  Write('A='); ReadLn(Vals.A);
  Write('B='); ReadLn(Vals.B);
  Write(F,Vals);
end.

Methode 2 : Fonctions 'File*'

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
program FileAppend;
 
uses SysUtils;
 
type 
  TVals=record
    A, B : Integer;
  end;
 
var
  Vals : TVals;
  F : LongInt;
begin
  F := FileOpen('vals.bin', fmOpenReadWrite);
  FileSeek(F, 0, fsFromEnd);  
 
  Write('A='); ReadLn(Vals.A);
  Write('B='); ReadLn(Vals.B);
 
  FileWrite(F,Vals, SizeOf(TVals));
 
  FileClose(F);
end.

[ChPr]

Merci pour les solutions que vous m'apportez.

Pour le moment, j'ai choisi d'utiliser "TFileStream".

Par contre, il ne faut pas faire :

Code :

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

Position:= Size-1;

mais :

Code :

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

Position:= Size;

Cordialement.

Pierre

[Dr.Who]

exact

[Dr.Who]

et cerise sur le gateau avec TFileStream :

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
32
33
34
35
36
37
38
39
40
41
 
type
  TVal = packed record
    A, B: integer;
  end;
  PVals = ^TVals;
  TVals = array of TVal;
 
procedure ValsSave(FileName: string; lpVals: PVals);
var
  vCount : integer;
  vSize : integer;
begin
  with TFileStream.Create(FileName, fmCreate) do
  try
    vCount := Length(lpVals^);
    vSize := vCount * SizeOf(TVal);
    Write(vCount, 4);
    Write(vSize, 4);
    Write(lpVals^, vSize); 
  finally
    Free;
  end;
end;
 
procedure ValsLoad(FileName: string; lpVals: PVals);
var vCount, vSize: integer;
begin
  with TFileStream.Create(FileName, fmOpenRead) do
  try
    read(vCount, 4);
    read(vSize, 4);
 
    assert(vSize <> (vCount*SizeOf(TVal)), 'Size not match');
 
    SetLength(lpVals^, vCount);
    read(lpVals^, vSize);
  finally
    Free;
  end;
end;