Discussion :

[Art19]

Bonjour,

J'ai cree un record de donnees et je voudrais les stocker dans un fichier. Pour cela il faut que j'ecrive dans le fichier au moyen de WriteFile. Je pense que je vais utiliser CreateFile pour creer un nouveau type de fichier et ensuite ecrire dedant, est ce une bonne idee?

[ShaiLeTroll]

Tu peux utiliser les fonctions Delphi AssignFile, Reset, Read, Write sur un fichier tel que File of TBidule ...

exemple

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
type
  TStructRec = packed record
    ID: Integer;
    Nom: String[50];
    Memo: String[255];
    Date: TDateTime;
end;
 
procedure TFrmTestFichier.BtnLoadClick(Sender: TObject);
var
  Fichier: File of TStructRec;
  TmpStructRec: TStructRec;
  i: Integer;
begin
  if not FileExists(EdPathStructFile.Text) then begin
    ListBoxRecords.Items.Clear();
    ListBoxRecords.Items.Add('New');
    Exit; // Rien à Charger
  end else begin
    ListBoxRecords.Items.Clear();
    ListBoxRecords.Items.Add('New');
 
    AssignFile(Fichier, EdPathStructFile.Text);
    Reset(Fichier); //
    while not Eof(Fichier) do begin
      Read(Fichier, TmpStructRec);
      i := ListBoxRecords.Items.Add(IntToStr(TmpStructRec.ID) + ' : ' + TmpStructRec.Nom);
      ListBoxRecords.Items.Objects[i] := Pointer(TmpStructRec.ID);
    end;
   end;
end;
 
 
procedure TFrmTestFichier.BtnEcrireClick(Sender: TObject);
var
  Fichier: File of TStructRec;
  TmpStructRec: TStructRec;
begin
  ZeroMemory(@TmpStructRec, SizeOf(TmpStructRec));
  TmpStructRec.ID := StrToInt(EdID.Text);
  TmpStructRec.Nom := EdName.Text;
  TmpStructRec.Memo := EdMemo.Text;
  TmpStructRec.Date := Now();
 
 
  AssignFile(Fichier, EdPathStructFile.Text);
  if not FileExists(EdPathStructFile.Text) then begin
    ReWrite(Fichier);
  end else begin
     Reset(Fichier);
     Seek(Fichier, TmpStructRec.ID); // Magique le BlockSize est SizeOf(TStructRec);
  end;
 
  Write(Fichier, TmpStructRec);
  CloseFile(Fichier);
 
  BtnLoad.Click();
end;

ou

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
procedure TFrmTestMemory.BtnWriteStringClick(Sender: TObject);
type
   TStringTest = packed record
      Numero: Cardinal;
      Debut: string[5];
      Milieu: string[6];
      Fin: string[3]
   end;
var
   FileToWrite: file of TStringTest;
   Item: TStringTest;
begin
   Item.Debut := 'Begin';
   Item.Milieu := 'Mil';
   Item.Fin := 'End';
 
   AssignFile(FileToWrite, ExtractFilePath(Application.ExeName) + 'Files\' + ExtractFileName(ChangeFileExt(Application.ExeName, '.StringTest.txt')));
   Rewrite(FileToWrite);
   try
      Item.Numero := 1;
      Write(FileToWrite, Item);
      Item.Numero := 2;
      Write(FileToWrite, Item);
      Item.Numero := 3;
      Write(FileToWrite, Item);
 
   finally
      CloseFile(FileToWrite);
   end;
end;

[Art19]

merci. quel est le nom de ton fichier dans ton 2e exemple? et a quoi sert le AssignFile et le rewrite?

[ero-sennin]

Salut,

Pour le AssignFile et le Rewrite, tu peux faire F1 sur ces 2 mots clés, Delphi te dira ce que celà fait!

Sinon, en un mot, AssignFile, c'est pour assigner ton fichier à une variable et le Rewrite permet de créer un fichier et si celui ci existe déjà, il l'écrasera...

J'espère que ça t'aidera....

[CapJack]

Il y a fondamentalement trois façons de gérer les fichiers dans Delphi :

1) L'API de Windows; CreateFile, WriteFile etc... peu naturelle au Pascal mais très performante puisque proche du système, et la plus rapide pour convertir une routine C/Windows en Pascal.

2) Le Pascal "traditionnel". AssignFile ou System.Assign (ancien Assign), Reset, Rewrite, Append, Read(ln), Write(ln), BlockRead, BlockWrite, CloseFile ou System.Close (ancien Close). Beaucoup de vieux programmeurs Pascal conservent cette méthode, comme je l'ai moi-même fait pendant des années. Ce mécanisme permettait de gérer nativement des fichiers structurés, d'éléments de type record, ce qui était l'un des avantages du Pascal à une époque donnée. Mais franchement, en Pascal objet, je trouve cette méthode complètment obsolète. Plutôt que des records, mieux vaut aujourd'hui utiliser des objets capables de se sauvegarder eux-mêmes dans un flux avec une bonne gestion des exceptions (cf ci-après).

3) Le Pascal objet, par les mécanismes de flux, TFileStream. Ma préférée, parce qu'orientée objet, très performante, permet de gérer les erreurs par le mécanisme des exceptions et accessoirement, permet d'utiliser les mêmes routines pour faire des manipulations sur disque ou en mémoire via l'équivalent "mémoire", TMemoryStream, qui descend comme TFileStream de TStream.

Selon moi, un vrai programmeur Delphi ne devrait utiliser que cette dernière méthode, avec une robuste gestion des exceptions (try try .. except .. finally). Le code est plus clair, plus évolutif, et plus robuste.

[Faucon]

Bonjour,

Tapez sur Google .... « Tfilestream Tony Baheux »
Vous aurez accès à une bonne documentation pour débuter.

Bon courage.