Discussion :

[gillou026]

Bonjour

Je bloque sur un truc ...

Dans mon appli, j'ai 4 colonnes (memo) dans lesquelles je viens inscrire des données ...
Elles sont d'abord rangées dans un tableau car elles ont une place précise et ensuite affichées dans les 4 memo.
A chaque nouvelle donnée, je veux l'enregistrer dans un fichier texte sur le disque dur pour avoir une sauvegarde des dites données en cas de plantage !

A l'ouverture de mon appli j'oblige l'utilisateur à créer un fichier texte. Bon ça ok ...

Code :

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

1
2
3
4
5
6
7
 
if savedialog1.Execute then     // ouvre la boite de dialogue d'enregistrement
     begin
        copier_4_colonnes();     // transorme les 4 memo en un seul (memo6)
        memo6.Lines.SaveToFile(savedialog1.FileName);
        label14.caption := savedialog1.FileName; // affiche le nom du fichier et son chemin
     end;

Ensuite à chaque nouvelle donnée, je rassemble mes 4 memo (de 30 lignes) en un seul de 120 lignes et je voudrais écraser les anciennes valeurs avec ce nouveau memo !!!

C'est là que je bloque ... avec les Assign, Rewrite, memo1.lines.SaveTofile et cie ...

J'ai beau le tourner dans tous les sens, ça veut pas !!! Toujours un truc pas compatible avec l'autre ...

Comment faire en sorte que le nouveau contenu de ce memo aille écraser les anciennes valeurs et referme le fichier jusqu'à ce qu'une nouvelle données arrive ???

Merci de votre aide.

[Rayek]

Je verrai bien un truc du style

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
 
Procedure WriteMemo(ALst : TStrings;ASaveFile : String; AEraseFile : Boolean);
var
  MemoStream : TFileStream;
  i : Integer;
 
  // Si delphi XE et +
  {$IFDEF D15}
  Buffer : TBytes;
  Encoding : TEncoding;
  {$ENDIF}
begin
  if ALst.count = 0 then
    Exit;
 
  // Suppression du ficheir
  if AEraseFile then
    DeleteFile(ASaveFile);
 
  if not AEraseFile and FileExists(ASaveFile) then
  begin
    // Update du fichier
    MemoStream := TFileStream.Create(ASaveFile, fmOpenReadWrite);
    MemoStream.Seek(0,soFromEnd);  
  end else
    // Création du fichier
    MemoStream := TFileStream.Create(ASaveFile, fmCreate);
  try
    For i := 0 to Alst.count -1 do
    begin
 
      {$IFDEF D15}
        // Pour dephi XE et +
        Encoding := TEncoding.Default;
        Buffer := Encoding.GetBytes(Alst[i]);
        FFile.Write(Buffer[0],Length(Buffer));
      {$ELSE}
       FFile.Write(Alst[i][0],Length(Alst[i])); 
      {$ENDIF}
    end;  
  finally
    memoStream.Free;
  end;
end;

A utiliser comme suivant

Code :

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

1
2
3
4
5
6
 
 // AErase a True pour le premier pour effacer le fichier avant d'écrire
WriteMemo(Memo1.Lines,SaveDialog1.FileName,True);
WriteMemo(Memo2.Lines,SaveDialog1.FileName,False);
WriteMemo(Memo3.Lines,SaveDialog1.FileName,False);
WriteMemo(Memo4.Lines,SaveDialog1.FileName,False);

Code non testé directement mais l'idée est la