Discussion :

[dacid]

Bonjour à tous,

J'ai 3 memos sur ma fiche, et je voudrait transferer leur contenu dans 1 seul fichier texte.
Cette fonction écrase le contenu du fichier:
memo1.Lines.SaveToFile(cheminComplet);

Je pourais bien faire 3 boucles qui lisent les lignes une à une et les écrit dans le fichier, mais je pense (j'espère) qu'il y a plus optimisé.

Avez vous une idée ?

Merci d'avance.

[Tardiff Jean-François]

Bonjour,

Cela vous conviendrait'il ?

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
 
procedure Form1.SaveMemo;
var
  List: TStringList;
  procedure Add(Memo: TMemo);
  begin
    if Memo.Items.text = '' then exit;
    if List.Text = '' then
      List.text := Memo.Items.text
    else
      List.Text := List.text + #13 + #10 + Memo.Items.Text; // #13 +#10 = CRLF = Saut de ligne
 
  end;
begin
  List := TStringList.create;
  try
    Add(Memo1);
    Add(Memo2);
    Add(Memo3);
    List.SaveTofile('Monfichier.txt');
  finally
    List.Free;
  end;

[dacid]

Impeccable !

Je m'orientais plus (a tort) vers des traitements avec le flux textFile, plutot que d'instancier un autre objet.

Merci pour votre rapidité (et pertinence).

[Gilbert Geyer]

Variante simplifiée avec AddStrings :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure Form1.SaveMemo;
var     List: TStringList;
begin  List := TStringList.create;
         with List do
         begin AddStrings(Memo1);     Add(''); // Mémo + Saut de ligne
               AddStrings(Memo2);     Add('');
               AddStrings(Memo3);     Add('');
               SaveTofile('Monfichier.txt');
               Free;
          end;
end;

[dacid]

Bonjour Gilbert Geyer,

En fait, vous avez presque reproduit, mot à mot, le code que j'ai fait, en partant de l'idée de Tardiff Jean-François.
(j'ai gardé les try... finally, de plus, j'ai mis Memo1.lines)

Merci pour votre participation.

[Gilbert Geyer]

A Dacid :

vous avez presque reproduit, mot à mot, le code que j'ai fait

... c'est juré que je n'ai aucun don de voyance !

j'ai gardé les try... finally, de plus, j'ai mis Memo1.lines

Merci pour cette précision. Bigre, j'avais oublié le 'lines' indispensable pour les AddStrings(Memo1.lines) !!! quant au try... finally, dans ce cas c'est une question de goût.